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Fort Worth Scene 



Here we are at the end of our first forty-eight page per 
issue year. Thumbing through the last year of Newsletters, 
brings to mind the many changes that have taken place. 
1982 saw Bill Barden's series of articles on 6809 assembly 
language for the Color Computer begin in February as did 
our two for one media exchange program for user submitted 
material on tape or disk (not to mention CompuServe). 

We have looked at the Pocket Computer II, 
SuperSCRIPSIT, the Model II Graphics board, the digitizer, 
hard disks, a whole new line of printers (including dot matrix, 
daisy wheel, and plotters) for all the computers, terminals, 
myriad software packages, a new operating system in LDOS, 
and much, much more. It all leaves us in a state of wonder 
and breathless anticipation— wonder at what has been ac- 
complished in the Radio Shack line of computer products in 
this last short year and anticipation at the promise of the many 
exciting things yet to come. 

RING OUT THE OLD, BRING ON THE NEW 

While 1982 was a good year for TRS-80s (excellent in 
fact), 1983 promises to be even better. We cannot tell you 
everything that may be coming up in the computer line, but 
we thought you might be interested in the 1983 TRS-80 
Microcomputer News topics. 

January— Getting Started 

Where are you going to put it? 

Getting it running 

Selection and care of software 

What if it doesn't work? 
February— Utilities 

FORMAT, BACKUP, XFERSYS 

PATCH, BUILD, DO 

Personal utilities 

BASIC utilities 
March— Peripherals 

What is a peripheral? 

Storage devices 

Input devices 

Output devices 
April — Com mu nications/Data bases 

What is a database? 

How do I talk to a database? 

Commercial databases 

Personal/Business databases. 
May— Home 

Education 

Management 

Environmental Control 

Recreation 
June— Graphics 

Low resolution 

High resolution 

Printers 

Using graphics 
July— Games 
August— Word Processing 

What is a word processor? 

SCRIPSIT 

Writing your own word processor 

Getting the most out of your word processor 
September— Education 

Computer literacy 

Home education 




Business education 

Education resources 
October — What's New and System Integration 

What's new for 84? 

Getting programs to work together 

Using Dow Jones/CompuServe with BASIC 

Terminal/SCRIPSIT/BASIC 
November— Operating Systems 

What is an operating system? 

TRSDOS 

LDOS 

Multi-user 

December— Languages/Modeling/Christmas 
Why are there different languages? 
Machine language 
High level languages 
leling 



If you have something related to one of these topics that 
you want to send us for possible publication, keep in mind 
that we work three to four months ahead of the month that the 
News actually goes into print. Don't let that be a limiting factor 
though, because if you send something we really like, we can 
run it any time. 

Thank you for your contributions and interest in TRS-80 
Microcomputer News . Best wishes for the holiday season 
and a very happy, prosperous 1 983 to you and yours from all 
our staff. JD 
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Notes to Program Users: 

Programs published in the Microcomputer News are pro- 
vided as is, for your information. While we make reasonable 
efforts to ensure that the programs we publish here work as 
specified, Radio Shack can not assume any liability for the 
accuracy either of the programs themselves or of the results 
provided by the programs. 

Further, while Microcomputer News is a product of Radio 
Shack, the programs and much of the information published 
here are not Radio Shack products, and as such can not be 
supported by our Computer Customer Service group. If you 
have questions about a program in the Microcomputer News, 
your first option is to write directly to the author of the program. 
When possible, we are now including author's addresses to 
facilitate communications. If the address is not published, or if 
you are not happy with the response you get, please write us 
here at Microcomputer News. We will try (given the limited size 
of our staff) to find an answer to your question and, in many 
cases, will publish the answer in an up-coming issue of Micro- 
computer News. 
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by Jon Shirley 
Vice President 
Radio Shack Computer Merchandising 



It is hard to believe that it is Christmas time already and 
another year is almost gone. Back in September we had our 
fifth anniversary in the microcomputer business but we 
hardly had time to notice it, as we surged into our sixth year 
with a great many new ideas for new products. 1983 will be 
our most exciting year, yet 1982 was certainly not too bad. 

Christmas, among its other connotations, does mean 
gifts, and we have numerous suggestions for the TRS-80 
owner. Our number one family gift is the Color Computer, 
specially priced for giving. If you already have a CoCo check 
out all the new software like MegaBug, Microbes, Poltergeist, 
Clowns and Balloons, and Tennis. A Pocket Computer is a 
neat idea for the man who has everything. Videotext software 
and a modem are welcome additions to any TRS-80. I don't 
want to run an ad here, but if you are stuck for gifts, check out 
the local Shack; we have gifts for boys and girls from 8 to 80. 

One gift any owner of a computer would like is a sub- 
scription to a magazine. Here are a few ideas for you, based 
on what we read. Please understand that we are not involved 
in these publications but merely want you to know they exist. 

80-US is a rapidly growing publication that supports all 
our Models from the Pocket Computer to the Model 1 6. They 
review products and publish programs. They would like 
to increase their readership, so here is a special offer for 
Microcomputer News readers. Write to them and say you are 
interested, and they will send you one free issue to check out. 
No risk or obligation. If you like it, subscribe. If you don't like 
the publication, give it to the Boy Scouts paper drive. Write to 
them at: 80-US Journal, 3838 South Warner St., Tacoma, 
Washington 98409, and request a sample copy. 

The Rainbow is exclusively for the Color Computer and it 
has been growing in size recently. They also publish and 
review software, and it is a good source for third party pro- 
grams. They can be contacted at: The Rainbow, 5803 Timber 
Ridge Dl, Prospect, KY 40059. 

Also for the Color Computer is an interesting publication, 
without ads, called the Color Computer Index . It is an index 
to articles, programs, reviews, and news releases about the 
Color Computer. The one I saw had 25 pages of items listed 
by title, author, and subject from 6 different magazines and 
the TRS-80 Microcomputer News . They do not publish the 
actual articles, just a bibliographic citation and brief annota- 
tion. Of course, most of the cited articles can be found at a 
local library. For more information write to: American 
Library and Information Services, 3705 Mary Ellen NE, 
Albuquerque, NM 87111. 

Yet another new magazine is called two/sixteen and is 
obviously for Model II and 16 owners. It is published bi- 
monthly, but might go monthly if they get enough subscrip- 
tions. It is a nice looking magazine and the issue I saw had a 



great deal of useful information. Write to: two/sixteen , 1 31 
East Orange St., Lancaster, PA 17602. 



HARD DISK 

Off the Christmas theme for a minute, I would like to talk 
about the hard disk. I use one, and I now have a lot of very 
valuable information on it. To insure the safety of that informa- 
tion, I do backups. Hard disks do fail, although not very often, 
and it is easy to forget the backups and assume it will run 
forever. Do that and it is certain to fail. Someone's law. Our 
manual leaves something to be desired and is being redone, 
but here is the procedure I follow and recommend that you 
follow, if you keep large amounts of data updated frequently 
on the disk. Once a month backup the entire disk. Do that by 
invoking SAVE :4 TO {SYS.ALL} . This will save all user files 
and programs and system items like runtimes that are not on 
the INIT disk. 

Each day (or even twice a day if the disk is used all day 
long) back up those files modified since the last backup. To 
do that: SAVE !:4 TO {DM>MMDDYY} where MMDDYY is 
the date of your last full month end backup. This will SAVE 
only those files or programs that were changed since the last 
full backup. Should your disk fail, all you would need are two 
sets of diskettes to recapture everything up to the end of the 
previous day. The procedure would be RESTORE TO 
4 {SYS}, using the month end set , then RESTORE TO 4 
again using the month end set . Then take the last day set 
and do RESTORE TO 4 {ABS} . This last step will write over 
those files that have been modified and bring them up to date. 
If you are a very heavy user of the hard disk, you may want to 
do the big save more often, twice a month or even weekly, to 
make the daily saves faster. 

And no matter which machine you have or what media 
you use, please make backups if you value your data. There 
is no such thing as a failsafe computer. 

Thanks for reading the Microcomputer News this year 
and for your support of the TRS-80. Have a happy holiday 
and a great new year. Until next year. J2 
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Radio Shack is launching an innovative new Outside 
Software Support Program. This new program offers a vari- 
ety of support and assistance services to third-party software 
vendors who are developing software to run on any of 
Radio Shack's TRS-80 computers. Radio Shack Vice Presi- 
dent for Computer Merchandising, Jon Shirley, acknowl- 
edges the program as "A major effort to aggressively support 
the needs of independent software developers who are 
themselves interested in supporting the needs of TRS-80 
computer owners and users." 

This new Outside Software Support Program is available 
to virtually all professional software developers with an inter- 
est in creating and marketing programs to run on 
Radio Shack TRS-80 computers. "This is most assuredly a 
third-party plan in every sense," comments Shirley. "Unlike 
our earlier policy, the software being developed with the 
support of our new program does not have to be intended for 
eventual sale through Radio Shack stores and dealers. We' re 
putting this program in place specifically to help develop new 
options for people who own our hardware." 

Technical assistance is one of the key services provided 
by the new Outside Software Support Program; others in- 
clude customer referrals through a software review program 
and a directory of outside software, and product line consid- 
eration, if desired, by Radio Shack. 

The Technical Assistance Program will provide informa- 
tion to aid the development of software for TRS-80 comput- 
ers. Licensing of Radio Shack TRSDOS (disk operating 
systems) and BASIC, sale of TRSDOS source codes and bulk 
sale of RUNTIME packages will be made available. Informa- 
tion updates on new operating system releases, new patches 
and new hardware will also be offered. 

SOFTWARE SUPPORT PROGRAM 

The Radio Shack Software Support Program was estab- 
lished to assist third party software firms in the development 
and/or conversion of reliable, specialized software for our 
TRS-80 line of computers. 

If you or your company wish to develop specialized 
software packages for the TRS-80 computer line under 
TRSDOS and are interested in a relationship with Radio 
Shack, write for an Application (or pick one up at your local 
Radio Shack Computer Center — Form # FC-301 3), and mail 
it to Radio Shack. 

If your application meets the criteria for the Radio Shack 
Software Support Program we will send you an information 
packet containing the information you requested and an 
application for the Radio Shack Software Review Program. 

SOFTWARE SUPPORT BENEFITS 

If Radio Shack accepts your application, you are eligible 
for many outstanding benefits. The list of these benefits 
include: 



1 - TECHNICAL INFORMATION GUIDES pertaining to the 

piece of hardware on which you are developing systems. 
This information will include material not generally re- 
leased. You may also request technical information (upon 
your acceptance in the support program) associated with 
the hardware you are working with, that is not contained 
in the Technical Information Guides. If you have experi- 
enced problems and have determined their solutions, we 
will incorporate any information from you in the Technical 
Information Guides. 

2 - SOFTWARE DEVELOPMENT GUIDES that are used 

by Radio Shack in developing our packages. This guide- 
line illustrates procedures used in creating thorough doc- 
umentation and functional smooth-flowing programs. 
The Software Development Guide outlines concepts that 
will assist you in making your product ready to market. 
3 -INTERNAL LIBRARY ROUTINES used by the Radio 
Shack Software Development Group for standardization 
and high productivity of packages. Included in this cate- 
gory are: 
-the INKEY routines for Interpreter BASIC & Compiler 
BASIC 

- an assembler input routine that allows the programmer 
full control of the keyboard and graphics in COBOL on 
the Model II & Model III 

- source copies that are copied by our COBOL source 
programs when developing software 

- more advanced joystick routine for the Color Computer 

- an artifacting example routine for more sophisticated 
graphics on the Color Computer 

- assembler routines that are callable on the Pocket 
Computer 2 

4 -TRSDOS LICENSING will be available to approved 
Software Support Program participants. This will allow 
you to duplicate & distribute TRSDOS and BASIC Inter- 
preter system software on diskettes with your application 
software. 

5 - PURCHASE TRSDOS SOURCE code copy for customiz- 
ing utilities and making changes for your specific require- 
ments. Any modification to TRSDOS is the responsibility 
of the individual who changes TRSDOS and releases the 
responsibility of support from Radio Shack. Calls to 
TRSDOS are preferred to ensure compatibility with future 
releases of TRSDOS. 

6 -COMMERCIAL QUANTITIES of Compiler BASIC and 
COBOL Runtime packages at reduced rates will be made 
available. Along with a TRSDOS Duplication license, 
RUNTIME quantity purchases will allow you to sell com- 
pleted packages at a reduced rate. 

7 - ROM PAK COMPONENT information listing the materials 

and their availability from Radio Shack for assembling 
your own cartridges. 

8 - MISCELLANEOUS INFORMATION which includes price 

listings for quantity purchases of computer hardware, 
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software, and peripherals. Also, a listing of programming 
aids and software design books that are felt to be above 
average is available. 
9 -INFORMATION DISTRIBUTION LIST which will make 
available to you any information on patches to 
Radio Shack software, including TRSDOS. Also, you will 
be one of the first to know about any new operating 
systems or new versions of the operating systems. U nder 
certain circumstances you may receive information on 
new hardware, so you may begin developing software 
before the new hardware is available in stores. 

SOFTWARE REVIEW PROGRAM 

The Radio Shack Software Review Program is designed 
to allow third party software firms, who are members of the 
Software Support Program, an opportunity to receive prod- 
uct exposure through a reference guide for reviewed soft- 
ware and in Computer Center product brochures. 

SOFTWARE REVIEW BENEFITS 

If Radio Shack approves your software package, it will 
be listed in a reference guide for reviewed software. 

The reference guide for reviewed software will contain 
our evaluation on your package and the location where the 
package may be purchased. Separated by Application Area 
specified by you, the evaluations will contain the information 
specified on the application form, our positive opinion of the 
package, and any positive reactions from your user group. 

On selected software packages that are extremely well 
developed and address specialized vertical markets which 
we cannot or do not currently address, Radio Shack will, at its 
expense and subject to your approval, prepare and print 
software brochures which will be provided to Computer 
Centers for distribution to customers. 

BASIC RULES 

1 - We will only consider software currently running on any 

TRS-80 CPU including: Model I, Model II, Model III, 
Model 16, Color Computer, Pocket Computer, and 
Pocket Computer 2. 

2 - No Games will be evaluated in the Software Review 

Program. 

3 - You must be an accepted member of the Software 

Support Program. 

4 - Software and documentation flow with program must be 

tested. You will be asked to sign a Confirmation Form. 

5 - You must be able to support any user problems with the 

package. A report containing the names of the pack- 
ages approved, along with your phone number will be 
distributed to the Radio Shack Customer Service Group 
so they can refer customers to you. 

6 - We recommend (but do not require) that your company 

establish an "800" number for support purposes, if 
you have not already done so. This number would 
also serve as a direct line to you for potential customer 
inquiries. 

7 - Follow all documentation and software guidelines when 

submitting packages. 

8 - Try not to have too many calls to the operating system, 

so that your system will be more compatible with future 
DOS's. 



9 - Do not contact Radio Shack about your application or 
evaluation, this will only slow the response process. 

10 - DO NOT submit ANY software or documentation until 

you are requested to do so by Radio Shack. 

1 1 - Only submit disk software running under TRSDOS, until 

further notice, or cassette tape software that can be 
loaded by the appropriate TRS-80 computers. 

12 - Software or documentation will not be returned. 

1 3 - We maintain the right to refuse to review any program. In 

particular, we are not interested in reviewing products 
that are directly competitive to Radio Shack's offerings. 
We are most interested in vertical market applications 
and personal productivity programs. 

NOTICE 

The Radio Shack Software Support and Review 
Programs are provided for the assistance and convenience 
of those developing software for use on TRS-80 computers. 
Radio Shack shall have the right, at its sole discretion, to 
determine those persons and companies it will accept in the 
Program and to eliminate any person or company from the 
Program at any time. Radio Shack shall also have the right to 
discontinue distribution of any information it so desires and to 
discontinue the Programs, in part or in their entirety at its 
discretion. Radio Shack's acceptance of any application shall 
not be regarded as creating any contracted relationship be- 
tween Radio Shack and the Applicant. 

Software authors and vendors who want further informa- 
tion on Radio Shack's new Outside Software Support pro- 
gram are urged to write: 

Radio Shack 

Software Support/Review Program 

1300 One Tandy Center 

Fort Worth, TX 76102. M 



Color Computer Bugs, 
Errors, and Fixes 



COLOR DISK DRIVE KIT (26-3022) 

The end of the cable that connects the disk drive(s) to the 
disk controller is stamped with the word TOP in white letters. 
The TOP end of the cable is connected to the disk controller 
with TOP up. The two connectors which connect to the disk 
drives may or may not be similarly marked. Some of these 
cables are keyed so that they cannot be inserted upside 
down while others are multi-striped and not keyed. For those 
that are not keyed, the pin numbers (from 1 to 34) are visible 
on the edge of each connector. When connecting the cable, 
place the lowest pin numbers closest to the bottom of the 
drive. 

When the disk drive cable is connected and the power is 
turned on, the drives should not start running. If they do then 
the cable is connected incorrectly. Before hooking or un- 
hooking disk drives, make sure that all diskettes have been; 
removed. They should also be removed before powering 
down the system. Jl 
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stmas Story- Billy and 



Editor's Note: The CompuServe Information Service is 
one of the largest information and entertainment services 
available to owners of personal computers and computer 
terminals. With each issue of TRS-80 Microcomputer News , 
various features of CompuServe will be discussed. The 
CompuServe Information Service is sold at Radio Shack 
stores nationwide and in Canada. 

Little Billy laid out cookies and milk on the small table next 
to the towering Christmas tree, twinkling and reverent in its 
comer of the dark living room. 

Eight-year-old Billy sank into the folds of the family easy 
chair, nearly burying himself, and snuggled up with the eider- 
down to observe his effect on the already cozy Christmas 
scene. 

As Billy huddled in the warmth of the atmosphere, he 
gazed around the room lit only by the lights of the magnificent 
Christmas tree. The tree was positioned in the far corner and 
shone brightly of green, red, blue, and other flashes of light 
illuminating the vast array of ornaments dangling between 
branches and tinsel. 

The presents were heaped one on top of the other and 
were strewn as far as the fireplace, whose ashes were still 
smoldering from the evening's fire. Billy glanced up at the 
silhouetted stockings lying in wait at the mantle. 

Sitting back with a satisfied air, Billy's eyes rested on the 
familiar TRS-80 Model III, now dark after a full night's use by 
various family members. As he stared at the blank screen 
Billy dreamed he was a top computer programmer, keying 
equations and computations for the space program and 
calculating major defense plans for the approval of the presi- 
dent and his defense committee. 

As Billy imagined himself being congratulated by the 
president, he was interrupted by a sudden noise over near 
the tree. He raised his sleepy eyelids just enough to make out 
a figure by the fireplace, bent over with the cumbersome 
weight of an object resting on his back. The figure heaved the 
huge bundle onto the hearth and straightened himself out, 
dusting himself off and chuckling. 

As Billy gazed across the dimly lit room, he rubbed his 
eyes and squinted to get a better look at what now occupied a 
large space in front of the fireplace. As Billy stared at the spot 
on the hearth, it turned just enough for him to see that it was a 
man engulfed in a long white beard and long white hair, pink 
cheeks and bright, glistening eyes. The man was dressed all 
in red with furry white trim on his collar, cuffs, and jacket front, 
which seemed to almost pop with his heaviness. He wore a 
stocking cap on his head with a little white ball on its end, and 
his pants were tucked into a high pair of jet black boots which 



matched the massive black belt stretched tightly around his 
middle. 

Billy leapt from his perch, no longer mildly observing the 
actions on the hearth, as Santa peered into his huge bundle 
and chuckled quietly to himself. 

"Santa! What did you bring me, Santa?," Billy cried as he 
made his way across the room to get a closer look at Santa 
Claus. 

"My, how you startled me, Billy. What are you doing up at 
this hour?" 

"I'm waiting for you, Santa. I wanted to be here to help 
you with the gifts and give you milk and cookies. What did you 
bring me this year, Santa?" 

As Billy eagerly awaited Santa's reply, Santa laughed 
and then pointed to the solemn computer and with a grin 
said, "Why Billy, I've brought you a world of information." 

Billy gazed at Santa with puzzlement as he watched him 
rummage through the bulk of his huge bundle until he drew 
out a bright green light and set it in the palm of his hand. 

"What's that?" Billy asked as he backed away from the 
light. 

Billy could just catch a glimpse of Santa winking at him 
through the light as he turned toward the computer. As Billy 
moved closer he realized that the light was no longer coming 
from Santa but from the screen of the now bright computer. 

"Sit down next to me, Billy, and I'll show you the growing 
world of videotex," Santa said. 

As Billy gazed up at the terminal, Santa typed in his user 
ID number and secret password to the CompuServe Informa- 
tion Service. 

"How would you like to talk to people all across the 
country on your TRS-80 Model III?" Santa asked. 

Billy continued to stare at the screen and slowly shook 
his head yes while Santa typed Go HOM-21 at the "!" CIS 
prompt. 

"This is CompuServe's version of the CB, Billy. By using 
CompuServe you can talk through your computer to people 
all over the U. S. and Canada," Santa said. 

"Once you enter with your ID number and password, 
you select "Communications." This automatically logs you on 
CB where you'll see many different conversations by people 
like Tootsie Roll, Cupcake or the Cookie Monster. These are 
their handles, just like those used by people on the radio 
version CB. Your terminal is your microphone and everything 
you type, followed by an (ENTER > is seen by other CBers on 
one of 40 channels," Santa said. 

"But if I'm on channel 19 how do I change to another 
channel? Or how do I know if anyone's listening to me," Billy 
inquired. 
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"There are a few commands you give the computer to 
help you get around in CB," Santa said. "To change your 
channel, just type in the command /TUNE and you can send 
and receive messages on a different channel. /STATUS lets 
you see how many are "listening" to you, and the /MONITOR 
command lets you follow other conversations. You can even 
have your own private conversation with the /SCRAMBLE 
command," Santa told Billy. 

"What else does CompuServe have, Santa? Can I play 
games on it?" 

"CompuServe offers lots of games, Billy, plus shopping 
at home and Special Interest Groups." 

"What's a Special Interest Group," Billy asked as he 
munched on a cookie from Santa's plate. 

"A Special Interest Group is for people who share a 
common interest in something and want to swap information. 
CompuServe has groups for photography and music 
(Photo-80/Orch-80), groups for people who like ham radios 
(HAMNETS), groups for people who like to cook (the Cook's 
Underground) and even a group for the people who like to 
talk on CB. It's called CBIG. These groups share their infor- 
mation through an electronic bulletin board and some have a 
Feedback section where you can converse with hardware 
manufacturers about equipment, problems, or suggestions." 

"Could I become a member of a special interest group?" 
Billy wondered. 

"Of course you can. Most SIGs add you as a member 
when you log on and access them. Some have a fee, while 
others have certain equipment requirements." 

"What kinds of things would be there for people like my 
Mom and Dad and brothers and sisters?" 

"How about the ability to shop from your own home 
without getting up out of your chair? You can do that with 
Comp-U-Store, the electronic shop-at-home service. They 
have prices 1 to 40 percent lower than other places and can 
be accessed at CIS rates of $5 for standard service and 
$22.50 for prime service. Just access the main menu of 
Home Service and then the shop-at-home section on the 
subsequent menu. You can read information on products 
and prices and can order from a selection of over 30,000 
brand name products including cameras, musical 'instru- 
ments, and stereo equipment." 

"How do you do that?" Billy asked from the side of the 
now empty milk glass. 

"With Comp-U-Store you can comparison shop among 
all the items. When you've decided on what you're going to 
buy, you go to the ordering section where you give informa- 
tion like your address, name, and method of payment." 

"But how do they get the money to them if they' re not in a 
store?" asked Billy. 

"They can pay by credit card including the new no fee 
VISA which Comp-U-Store is offering to its members. With 
this feature, members don't have to pay a fee to use their 
VISA card. Comp-U-Store also has a Databasement where 
other specific items are further discounted, plus a weekly 
auction where items are bid on by members. As in any other 
auction, whoever gives the highest price gets the item." 

"What kinds of games can I play," Billy asked, through a 
large yawn and bleary eyes. 

"Oh, there are lots of games on CompuServe," Santa 
told Billy. "There are games like football and strategic games 
like chess. There' re games of chance like roulette, blackjack, 
and craps, and popular games like golf. There's the Adven- 



ture game where you battle snakes and dwarves in Colossal 
Cave in search of lost treasure. There's a series of adventure- 
type games such as Adventureland, Pirates Adventure, Mis- 
sion Impossible, Voodoo Castle, Ghost Town, Pyramid o, 
Doom, and Strange Odyssey. There's Megawars which is a 
real-time space battle where up to 10 people can play at a 
time. You're either a Colonist or a Kryon, and the object of the 
game is to attack your opponents' space ships and capture 
planets." 

Santa chuckled and looked down to find Billy fast asleep 
by his lap with a large smile and a dried "milk mustache." He 
gently lifted Billy up into the chair in front of the computer and 
removed the empty plate of cookies and glass of milk. Santa 
quietly typed in a short message on the computer, gathered 
his huge bundle, and stepped onto the hearth. With the 
smoke still swirling around his windburned cheeks, he bade 
Billy a Merry Christmas and good night and disappeared up 
the chimney without a sound. 

In the morning, Billy's family found him fast asleep in front 
of a black screen. Billy awakened and excitedly told them 
about his visit from Santa and about all the things he had 
shown him on the computer. Billy's mother wiped the dried 
mustache from Billy's lip and directed Billy to the pile of 
presents in front of the tree. Billy's brothers and sisters re- 
marked how they used to sit and wait for Santa on Christmas 
Eve and told Billy that they used to dream that they actually 
saw Santa, too. 

"But I did see Santa," Billy protested. "He showed me all 
the games, and shopping at home, and special interest 
groups, and 

But everyone just continued to open their presents 
amidst Billy's indignant protests. After they opened all ther 
presents, Billy wandered over to the computer and switched 
it on. To everyone's surprise there was a "main menu" dis- 
played on the screen and a little message at the bottom which 
read, "You have EMAIL waiting." 

Remembering the instructions Santa had given him, Billy 
pushed the keys to read "Go EMA," and a short message 
distinctly appeared on the screen as Billy's family gathered 
around. The message read .... 



CompuServe Pass EMA-3 



i SANTfl/HERRV CHRISTMAS 

Last menu page. Key digit 
or M for previous menu. 



'CompuServe Page EHA-5 

25-DEC-82 61:66 Fr [fflHHHHHHIft] 

Hope you enjoyed the world of information, Billy. 

Thanks for the milk and cookies. 

Merry Christmas to all. 



Questions and comments about the CompuServe Infor- 
mation Service can be sent to Richard A. Baker, Editorial 
Director, or Jacqueline A. Farthing, Assistant Editor, Compu 
Serve Information Service, 5000 Arlington Centre Blvd., P. O. 
Box 20212, Columbus, Ohio 43220, or through Feedback, 
main menu item 5, CompuServe User Information. J3 
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Standard and Poor's 



Now You Too Can Be a "Wall 



Street Wizard". 

George Maniscalco 

Vice President, Standard & Poor's Corporation 



I know a lot of people who dream about making their 
fortune in the stock market. After all, history shows that many 
people have already done so, and the opportunities for future 
success certainly seem to be plentiful enough. In fact, the 
only thing one really needs to know are the names of some 
stocks that will be going up (or down) in price. Then one could 
invest accordingly. 

Obviously, and unfortunately, this knowledge is hard to 
come by. So, a great deal of effort and energy is expended in 
the fascinating arena of investment analysis. The basic idea, 
of course, is to find a way to forecast what is likely to happen 
to the price of a company's stock. At present there are a great 
many systems which are designed to help investors make 
decisions about whether and what to buy, sell, or hold. Essen- 
tially, these systems fall into one of two basic approaches: 
Fundamental or Technical analysis. Let us briefly look at 
these two approaches. 

FUNDAMENTAL ANALYSIS . . . 

In the area of fundamental analysis, the investor is typi- 
cally looking for a situation which reflects a good buying (or 
selling) opportunity, usually based on some computation of 
current data in the context of a historical perspective or 
comparison. The information used here almost always con- 
tains some combination of fundamental financial data; that is, 
basic earnings data, dividend data, growth rates, sales or 
revenue data, balance sheet data such as assets or debt, and 
so on. The idea behind this approach is that, in the long run, 
the shares of companies with superior performance will out- 
perform the shares of companies with less than superior 
performance. 

Therefore, if one can find a company whose data shows 
movement towards superior performance, an increase in the 
price of that company's stock probably is not far behind. (Of 
course, there are other considerations that may affect how 
long a period one will have to wait. These include the overall 
economic situation, competitive considerations, and so 
forth.) The source for this fundamental information is often the 
company itself, frequently through the data it presents in its 
annual report. In addition, there are a number of financial 
publishing companies (e.g. Standard and Poor's) which col- 
lect, process, and re-distribute information about these com- 
panies. This information is made available to individual 
investors, and to the "professionals" at brokerage houses, 
investment banking firms, investment-advisory companies, 
and the investment departments of a large number of other 
companies. 



TECHNICAL ANALYSIS . . . 

On the other hand, technical analysis systems typically 
disregard all fundamental information. The concept behind 
these systems is that the rise or fall in the price of a company's 
stock is most simply expressed by the balance (or lack of it) 
between willing buyers and sellers of the stock. Further, this 
balance is considered to be best reflected in the "picture" 
(usually expressed as a chart or graph) of the stock's trading 
activity. A wide variety of displays exist for these technical 
systems. For example, there are bar charts, line charts, point 
and figure charts, ratio charts, moving average and volume 
indicators, logarithmic charts, etc., etc. Some of the buzz- 
words used to describe these pictures or formations may 
sound familiar: "head and shoulders", "flag", "pennant", 
"upside breakout", and so forth. In most cases, the incredible 
array of displays and visualizations comes from only four 
pieces of daily information: the high, low, and last price, and 
the trading volume. 

Very often, the type of system that an investor uses will 
provide insights into his investment objectives and his invest- 
ment time-frame as well. Patient investors will tend to use 
fundamental approaches. They'll focus more on long-term 
growth opportunities and avoid the temptation to try for a 
quick profit. Less patient investors are perhaps better 
described as "traders". Typically, they'll look for short-term 
situations and are usually less interested in long-range oppor- 
tunities. Technical approaches tend to serve their needs bet- 
ter than fundamental approaches. 

Actually, neither approach is inherently good or bad, 
right or wrong; and sometimes they can even work very well 
together. What is most important to the individual investor is to 
select the approach that makes him, or her, most comfort- 
able. After all, the challenge itself is difficult enough: no need 
to make it worse by using an approach that does not match 
your style. Of course, some people use a third approach, 
sometimes referred to as the "dart-board" system. Since this 
approach is totally without discipline, we will not deal with 
it here. 

Given all the different systems and approaches and 
types of data, it is easy to understand why many investors feel 
confused about the investment approach they should follow. 
To make matters worse, increasing amounts of basic data 
have become available to feed into this growing number of 
investment systems. For the average investor, dealing with all 
of this can often be a complex, time-consuming, and some- 
times even frustrating job. 
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ENTER, AN APPROACH DESIGNED TO OFFER SOME 
HELP. .. 

The advent of the microcomputer has made the task ot 
investment analysis much easier to deal with. Although mi- 
cros can be useful for a wide variety of applications, their use 
in this area is a particularly good fit. The main reason for this 
has to do with the fact that investment analysis systems 
usually require a lot of computational processing, and the 
process gets repeated on a regular basis as new data be- 
comes available. 

Two years ago, Standard & Poor's and Tandy combined 
forces to introduce a powerful, yet easy-to-use, investment 
software system. We called it Stockpak. This system was 
designed to help investors in two distinct and important ways. 
First, the Stockpak System includes a Portfolio Management 
capability to help you manage your investments. Second, 
Stockpak contains a unique and powerful Screening feature 
that helps you locate companies that meet your own personal 
investment criteria. Interestingly, both parts of the Stockpak 
System work against a disk-database which is updated each 
month. 

Each of these capabilities is basic enough and important 
enough to be worthy of "stand-alone" status. Taken together, 
the combination of their features makes the Stockpak System 
extremely powerful, versatile, and useful. Let's take a closer 
look . . . 

STOCKPAK'S PORTFOLIO MANAGEMENT CAPABILITY 

For starters, we will make the assumption that anyone 
with investments (in anything) has a basic need for some way 
to keep track of those investments. After all, if for no other 
reason, you must at least have accurate records of your 
investment transactions for the Internal Revenue Service. A 
true portfolio management system is a well-defined database 
management system. 

The Stockpak System includes a Portfolio Management 
capability that keeps track of stock, bond, and option pur- 
chases and sales. These functions are a minimum require- 
ment for any portfolio management capability. In addition to 
these record-keeping functions, Stockpak handles the calcu- 
lations to determine such items as Net Present Position, and 
Realized/Unrealized Gains or Losses. Stockpak also calcu- 
lates the Rates of Return of each item in the portfolio against 
the S & P 500 Index and tells you when an issue will go from 
'short-term' to 'long-term' status for income tax purposes, a 
feature which can be quite valuable. In addition, Stockpak 
sorts the data and delivers a report to either the screen or a 
printer. A very convenient feature allows the Portfolio diskette 
to accept information from the monthly database diskettes, 
about which we will have more to say later. As impressive as 
these features may be, they are only a small part of Stock- 
pak's real power . . . 

STOCKPAK'S SCREEN AND SELECT SYSTEM 

By far, Stockpak's most impressive feature lies in its 
Screen & Select capability. This function permits users to 
create their own investment screens, then apply those 
screens to a database of companies. This part of the system 
works in conjunction with a database diskette (updated each 
month) which contains 30 financial facts on 900 actively 
traded companies. The 900 companies in the database in- 
clude the 500 companies in the S & P 500 Stock Index, plus 



400 other New York, American, and Over-the-Counter com- 
panies. Through the use of a unique Data Dictionary feature, 
users can create and maintain an additional 200 financial-, 
facts about these companies. Therefore, well over 200 items 
can be accessed in the process of creating a screen. 

For example, you might tell the system to "find" only 
large companies, or only small ones . . . only companies with 
high earnings growth, or low P/E's, or high yields . . . 
only companies in specific industries or on certain 
exchanges. . . only companies with high sales or low debt or 
a high S&P Earnings and Dividend ranking. In fact, you can 
draw from over 200 information items to create a single 
screen and there is no limit to the number of screens you can 
apply. The system then goes to work to sort through all of the 
data on the database disk to find only those companies that 
exactly meet the criteria you specified. If you need to, you can 
easily re-define a screen if the previous criteria were either too 
loose or too tight. It is not hard to imagine how difficult, if not 
impossible, performing a task like this would be for someone 
without a computer. 




Photo 1. Database Updates 

Once you have reduced the 900 companies to a smaller 
group of your prime candidates, you can create a separate 
Spin-Off file to follow them more closely in the future. To round 
out the functions, the system also provides extensive report- 
writing facilities (both customized and pre-defined) for tempo- 
rary or permanent retention of the results. 

Until recently, these capabilities were only available to 
professional investors using time-sharing or large in-house 
computer facilities. Now, with Stockpak's software and data, 
individual investors stand a much better chance of finding 
those companies of special interest, based solely on the 
factors that they consider to be most important. 

TOWARDS BETTER INVESTMENTS 

The Stockpak System is currently available for both the 
Model III and the Model I TRS-80's, and it comes in two 
parts. The first part includes all of the software described 
above (Portfolio Management, Screen & Select, and Report 
Writer), a sample database diskette, and complete documen- 
tation. The second part of the system is an annual subscrip- 
tion to updates of the database. These updates are produced 
once each month and mailed after the last trading day of the 
month. Also, included in part two is a subscription to the 
Stockpak Strategist, a monthly newsletter that helps subscrib- 
ers get even more value from using the system. 

Part one is available from all Radio Shack stores and sells 
for $49.95 (26-1 507). Part two is available from Standard and 
Poor's and sells for $200 per year. For more information, see 
your local Radio Shack dealer or write to Standard and 
Poor's, c/o Stockpak, 25 Broadway, New York, N.Y 10004. 
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Model I/III 



Business Graphics-Analysis Pak 



Effective business graphics made easy— that's the 
promise of a new software package called the Business 
Graphics-Analysis Pak. We have obtained this package from 
TimeWare Corporation, a Palo Alto software firm with many 
years experience in the field of business graphics. The pack- 
age is a real bargain, offering functions similar to those of 
mainframe products costing thousands of dollars. 

With the Business Graphics-Analysis Pak, you can dis- 
play your data pictorially— in the form of line charts, bar 
charts, and scatter charts. The package is designed to run on 
the TRS-80 Model III microcomputer and requires two disk 
drives and 48K RAM. There is no expensive hardware to 
buy— charts can be produced on the printer you probably 
are using right now (dot matrix line printer V, VI, or VIII, or 
the daisy-wheel printer II) or on the TRS-80 multi-pen plotter. 

Designed for business users at all levels, the Business 
Graphics-Analysis Pak is completely menu-driven— you can 
put it to work for you right away, without having to learn 
complicated operating procedures. 




Photo 1 

The Business Graphics-Analysis Pak sets up an attrac- 
tive chart for you— automatically scaled, labeled, and laid out 
to suit your particular output device. Just select a chart type, 
supply your data, provide a title or two, and ask to see your 
chart displayed on the screen. After previewing the chart, 
direct it to your printer or pen plotter. It's as simple as that! 



While the chart is displayed on the screen, you can edit 
the text by inserting, changing, deleting, or moving labels or 
captions. You can actually move text freely about the screen 
with the arrow keys— placing the text exactly where you want 
it, in or around the chart. 




Photo 2 

When you are satisfied with the chart on the screen, you 
can then produce a hard copy on the printer or pen plotter or 
save the chart in a file for future use. 

If you want, you can assume more control over the chart 
format: 

• Modify the size and shape of the chart— up to 1 1 
inches square 

• Adjust the range of the numeric scale and the format of 
the scale labels 

• Provide a starting time label (such as a month or a 
quarter) that will be incremented automatically for each 
plot point or bar 

• Modify the format of the curves, plot points, bars, or 
slices 

• Request shading under curves or within bars, bar 
segments, or pie slices 

• Add a frame to the chart 

You can even design and save a customized chart 
format— this is handy for charts that are produced on a 
regular basis. 
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CHART DATA 

Data for the chart can be entered at the terminal, brought 
in from a disk file, or generated by the program. Virtually any 
type of file can be used, including VisiCalc, SCRIPSIT, BASIC, 
and FORTRAN files. (Some types of files must first be con- 
verted to another format, using a utility that comes with the 
package.) 

The Business Graphics-Analysis Pak provides extensive 
data handling capabilities. You can generate an arithmetic or 
geometric series of values. You can edit data, or manipulate it 
with various mathematical functions. You can project trends, 
compute moving averages, consolidate data, etc. You can 
display the data on the screen, print it on the printer, or save it 
in a file. 




Photo 3 

OUTPUT DEVICES 

Charts can be produced on a line printer or a pen plotter. 
You can draw multi-color pictures on the pen plotter, and can 
even draw pictures directly on transparency film for use 
with overhead projectors. Charts produced on a printer 
can be transferred to transparency film with many office 
photocopiers. 

By increasing the density at which characters are 
printed, the program improves both the appearance and the 
accuracy of the charts. Circles are rounder, shading is more 
dense, and data points are placed more accurately. Charac- 
ters normally print at a density of 1 per inch horizontally and 
6 per inch vertically. For plot and fill characters on the line 
printers, this density is increased-— up to 20 per inch horizon- 
tally, and up to 12 per inch vertically on the daisy-wheel 
printer and 24 per inch vertically on the matrix printers. The 
highest resolution— -200 characters per inch— is obtained on 
the pen plotter. 

The picture's aspect ratio is always maintained— there is 
no distortion of the picture when moving from the screen to 
the printer or plotter. (Pie charts, for example, are always 
round, not egg-shaped!) 

LEARN-AS-YOU-GO OPERATION 

Because the Business Graphics- Analysis Pak is comple- 
tely menu-driven, you can learn as you use it. Each time a 
menu appears on the screen, one menu item is blinking off 
and on; an explanatory message about that item appears at 
the bottom of the screen. If you press the < ENTER) key, the 
flashing item is selected. 




Screen 1 



If you point to another menu item (either by pressing the 
corresponding number key or by moving to the item with the 
arrow keys), that item starts to blink, and a new explanatory 
message appears at the bottom of the screen. You can select 
the menu item, if you wish, by pressing the (ENTER) key. 




Screen 2 

When you first start using Business Graphics-Analysis 
Pak, you can browse through the menus, reading all the 
explanatory comments before deciding on your selection. As 
you get more familiar with the program, you can make your 
selections immediately by pressing the number key and 
< ENTER), pausing to read the explanatory message only 
when you need to refresh your memory 

STEP-BY-STEP EXAMPLE 

The following example— creation of a time plot— shows 
just how easy it is to use Business Graphics. 

After loading the TRSDOS system disk and the line chart 
disk, you type in "TRSCHART" and press the (ENTER) key 
to access the Main Menu. Pressing ( ENTER) a second time 
transfers you to the Data Handling Menu. 
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Screen 3 

Since menu item 1 (ENTER DATA FROM KEYBOARD) is 
flashing, pressing the < ENTER) key brings up a new screen; 
you are then prompted to enter your data, one value at a time. 
Each value you enter is displayed on the screen. Data entry is 
terminated with the (CLEAR) key, which returns you to the 
Data Handling Menu. You select item 8 (SAVE DATA) and 
enter a file name; the program writes your data values to disk 
under that name. You then return to the Main Menu and select 
menu item 2, the Line Chart Menu. 



; LINE CHART MENU 



1 DATA 6 FORMAT SETTINGS 



3 PRINTER/PLOTTER SETTINGS 



b-r SAVE SETTINGS: 



7 DISPLAY CHART 



Screen 5 

Press (CLEAR) to return to the Line Chart menu and 
select menu item 7 (DISPLAY CHART) to display your chart 
on the screen. 




Screen 6 



RETURN TO MAIN MENU 



SETS DATA FILE NAMES, CURVE FORMATS, AND SCALING. 



Pressing the (CLEAR) key restores the Line Chart 
Menu, and you select menu item 2 (TEXT SETTINGS). The 
Text Settings Menu is then displayed. 



Screen 4 

Since menu item 1 (DATA & FORMAT SETTINGS) is 
flashing, you need only press the (ENTER) key to be trans- 
ferred to the Data and Format Settings Menu, where you 
enter the name of your data file for curve 1 . 




Screen 7 
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Here you enter a top title, a left title, and labels starting 
with 1Q80 (the first quarter of 1980) for the horizontal axis. 
You also request a frame for the chart. 

The<CLEAR> key returns you to the Line Chart Menu. If 
you want, you can preview the chart on the screen. Selecting 
menu item 8 (PRINT CHART) causes the chart to be pro- 
duced on the printer as shown below. (A daisy-wheel printer 
was used in this example.) 




Photo 4 

You can save the chart in a disk file (using menu item 9, 
SAVE CHART) for future use. Or you can save the chart 
settings (using menu item 6, SAVE SETTINGS) to be used 
with new data for another chart. 

SYSTEM CAPABILITIES 

Chart Types . Line charts, bar charts, pie charts, and scatter 
charts are available. 

• Line charts may contain up to 3 curves, each based on 
up to 1 00 data points. Curves can be shaded from the 
curve line down to the bottom grid. 

• Bar charts may contain up to 100 bars. Bars can be 
grouped in clusters of up to 3 bars or stacked (cumula- 
ted) with up to 3 segments. (Stacking or grouping 
reduces the maximum number of bars.) Bars or bar 
segments can be shaded. 

• Pie charts may contain up to 12 slices, any of which 
can be shaded. 

• Scatter charts (X-Y plots) can be based on up to 100 
pairs of data values. By default, the data points are 
unconnected; you can request a connecting line, if 
desired. 

Chart Style . You can let the program format the chart, or you 
can control any part of it directly. 

• Chart width can range from 2 to 1 1 inches, chart height 
from 3 1 /3 to 11 inches. 

• Charts can be framed. 

• Solid, dashed, or dotted lines can be used for curves, 
and any character can be specified for the data points. 

• On a pen plotter, color can be specified for curves, plot 
points, bar or slice outlines, shading, and text entries. 

• Automatic scaling is based on the data; alternatively, 
you can specify the range to be used. 

Text . Screen editing is available for all text entries. 

• The program provides for three titles, one each cen- 



tered at the top, bottom, and left of the chart. Top and 
bottom titles can be enlarged. 

• Automatic labeling is provided by default for line 
charts, bar charts, and scatter charts. Scale labels are 
based on the data; time periods are numbered from 1 . 
You can control the format of the scale labels, and you 
can specify a starting time label (week, month, quarter, 
or year) for the time periods or bars, or suppress those 
labels altogether. 

• In chart edit mode, the chart is displayed on the 
screen. You can then add, change, delete, or move 
any text, supply special labels, etc. You can place text 
anywhere in or around the chart and see exactly how it 
will look before you produce the picture. 

Data Handling . Extensive data handling capabilities are 
provided. 

• Data can be entered at the keyboard or retrieved from 
a disk file. 

• An arithmetic or geometric series can be generated 
from a starting value and an increment or factor. 

• Any set of data can be transformed by adding or 
subtracting a constant or multiplying or dividing each 
value by a constant; by consolidating the data (such as 
months into quarters); smoothing the data with a mov- 
ing average; or computing the logarithm of each value. 

• Growth projections, either arithmetic or geometric, can 
be computed or a linear, quadratic, or exponential 
trend curve can be fitted to the data and projected for a 
number of periods. 

• Data can be edited on the screen— values can be 
changed, inserted, or deleted, and the results dis- 
played immediately. 

Program Output . Output can be handled several ways. 

• Charts can be displayed on the screen, printed on a 
matrix or daisy-wheel printer, or drawn on the multi-pen 
plotter. Charts can also be stored in a disk file for later 
use. 

• Data values and chart settings can be displayed on the 
screen, printed on the printer, or stored in a disk file. 

Program Documentation . Documentation is provided within 
the program itself and in a separate manual. 

• Menus printed on the screen list the available choices 
at each stage of operation. 

• For the current item, some additional information is 
displayed at the bottom of the screen. 

• Diagnostic messages are provided when an error oc- 
curs. Error and warning messages appear at the bot- 
tom of the screen and flash off and on; the message 
must be acknowledged before the program will 
continue. 

• The Business Graphics Reference Manual provides an 
overview of the program, a tutorial for the new user, 
and detailed reference materials. A comprehensive 
index is included. 

SEE IT IN ACTION! 

Stop by your local Radio Shack and ask to see the 
automated demonstration of the Business Graphics— Analy- 
sis Pak. This will give you a better idea of how the system 
actually works. See how easy it is to design a chart, to preview 
and edit it right on the screen, and to produce the final chart 
on the printer or plotter. J3 
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Model III Port 
Assignments 



Robert E. Brown 

2 Christina Drive East 

Schenectady, NY 12303 

(Text on Page 17) 



MOD 3 PORT FUNCTION MOD 1 EQUIVALENT 

FOH (240) FDC Command/Status Register 37ECH (14316) 

OUT: see Western Digital FD1771/3 

manual - various bit patterns 

handle all disk commands treated exactly as per the 

including: FOH Model 3 port 

Restore, seek, step, step in, 

step out, read data, write 

data, read track, read address, 

write track, force interrupt 
IN: Bit - set = busy 



MOD 3 PORT 


FUNCTION 


MOD 1 EQUIVALENT 




Bit 1 - DRQ (set = data register full)* 


EOH (224) 


Maskable Interrupt Latch 


37E0H (14304) 




Bit 2 - lost data/missing address* 




Bit reset = interrupt request 






Bit 3-set = CRC error* 






(directs jumps to interrupt 






Bit 4 - set = seek error/record not found* 




routines) 






Bit 5 - set = head engaged* 






Bit 0,1 - cassette interrupts 


Bit 0,1 - unused 




Bit 6 - set = write protected disk* 




Bit 2 - clock interrupt 


Bit 2 - communications interrupt 




Bit 7 - not ready 


' 




Bit 3 - I/O bus interrupt 


Bit 3 - unused 




'various status conditions are provided, depending upon the disk 




Bit 4 - RS232 transmit inter. 


Bit 4 - unused 




operation in progress 






Bit 5 - RS232 receive inter. 


Bit 5 - unused 


F1H (241) 


Disk Track Update Register 


37EDH (14317) 




Bit 6 - RS232 error interrupt 


Bit 6 - disk controller interrupt 




IN: current track 






Bit 7 - unused interrupt #7 


Bit 7 - clock interrupt 




NOTE: track selection is done 


treated exactly as per the 


E4H (228) 


Non-Maskable Interrupt Latch 
Bit reset = interrupt request 
Bit 5 - front panel reset inter. 


—No Direct Equivalent — 




by loading the data register 
(F3H) with the desired track 
and then issuing a SEEK 


F1H Model 3 port 




Bit 6 - motor time-out interrupt 
Bit 7 - disk controller interrupt 




F2H (242) 


command through port FOH 
Disk Sector Select Register 


37EEH (14318) 


E8H (232) 


RS232/Modem Status Register 


—Same as Mod 3 (port E8H)- 




IN or OUT: 8-bit parallel 
register for storing/reading 


treated exactly as per the 
F2H Model 3 port 




OUT: any byte resets the interface 




desired sector 






IN: Bits 0,1,2,3- unused 




F3H (243) 


Disk Data 


37EFH (14319) 




Bit 4 - Rl (ring indicator) 






IN and OUT: 8-bit parallel port 


treated exactly as per the 




Bit 5 - CD (carrier detect) 








F3H Model 3 port 




Bit 6 - DSR (data set ready) 




F4H (244) 


Disk Drive Select 


37E1H (14305) 




Bit 7 - CTS (clear to send) 






OUT: Bit 0- set = drive #0 


treated exactly as per the 


E9H (2.33) 


RS232 Baud Rate Select and 


-Same as Mod 3 (port E9H)- 




Bit 1 - set = drive #1 


F4H Model 3 port IF in Double- 




Switch Sensor 






Bit 2 - set = drive #2 


Density operation (using 




OUT: Bits 0-3 - select receiver baud rate 




Bit 3- set = drive #3 


write precompensation) 




Bits 4-7 - select transmit baud rate 




Bit 7 - set = double density 




IN: Bits 0,1,2- ignore 






IN: Bits 0-3,7 - ignore 






Bit 3 - parity (set = enabled) 






Bit 4 - reset = side 0, set = side 1 




Bit 4 - stop bits (set = 2, reset = 1 bit) 




Bit 5 - set = write precompensation engaged 




Bits 5,6 -word length (00 = 


5, 01=6, 10 = 7, 11=8) 




Bit 6 - set = generate waits 






Bit 7 - parity (set = even, reset = odd) 


F8H (248) 


Line Printer Status/Data Register 


37E8H (14312) 


EAH (234) 


UART Control/Status Register 


-Same as Mod 3 (port EAH)— 


or 








OUT: Bit - DTR (data terminal ready)* 


37E8H (14312) 


OUT: 8-bit parallel data port 


treated exactly as per the 




Bit 1 - RTS (request to send)* 






F8H Model 3 port 




Bit 2 - Break (disable transmit data) 




IN: Bits 0-3 unused 






Bits 3-7 - see IN assignments, port E9H 




Bit 4 - set = printer fault 






IN: Bits 0-2 - unused 






Bit 5 - set = device selected 






Bit 3 - set = parity error 






Bit 6 - set = out of paper 






Bit 4 - set = framing error 






Bit 7 - set = busy 






Bit 5 - set = overrun 




FFH (255) 


Cassette Status/Command 


Port FFH (255) 




Bit 6 - set = data sent (register empty) 




Register 






Bit 7 - set = data received (register full) 




OUT: Bits 0,1 - output signal 


OUT: Bits 0,1 - output signal 




*The Radio Shack Mod 3 service 


manual lists these two-bit assign- 




00 = .85v, 01 = .46v, 10 = 


O.Ov 




ments reversed from the arrangement shown here. 




Bits 2-7 unused 


Bit 2 - set = motor on 


EBH (235) 


RS232 Data Register 

OUT: 8-bit parallel transmit data 


—same as Mod 3 (port EBH)— 






Bit 3- set = 32CPL display 
Bits 4-7 - ignore 




IN: 8-bit parallel receive data 






IN: Bit 0- set = 1500 baud 


IN: Bit - ignore 


ECH (236) 


Miscellaneous Controls 


No direct equivalent, See 




Bit 1 - set = motor on 


Bit 1 - ignore 






FFH (255) described later . . . 




Bits 2-5 - see same bits 


Bits 2-5 - ignore 




Bit 1 - cassette motor (set = on 


) 




port OECH 






Bit 2-32CPL mode (set = 32CPL) 




Bit 6 - unused 


Bit 6 - video display status 




Bit 3 - Kana characters (reset = 


Kana) 




Bit 7- set = 500 baud 


Bit 7 - cassette input 




Bit 4 - Enable I/O bus (set = enabled) 




—No Direct Equivalent— 


37E4H (14308) 




Bit 5 - Enable video waits (set = 


= enabled) 






OUT: 01 = Select Cassette #1 




Bits 0,6,7 - Unused 








02 = Select Cassette #2 
(Continued on Page 17) 
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Computer Customer Service 



Holiday Fun with Your TRS-80 



Well, they tell me that it's time tor Christmas once again. 
It's a bit hard to get into the Holiday Spirit when it's still 102 
degrees outside. (In case you haven't picked up on it yet, 
these articles must be written several months in advance. 
This one is being written in late August/early September.) 
Anyway, we're going to try to give you a few new ideas 
for having fun with your equipment during the Holiday 
Season. 

The first program we'd like to share with you is for the 
PC2. It includes a printer routine which may be omitted if you 
haven't gotten your printer yet. I'm not going to tell you what 
will happen; I'll just let you type it in. 

2 GOSUB 100 

6 WAIT 100 

7 PRINT "SEASONS GREETINGS ! ! ! " 

8 CLS 

9 WAIT 

10 GCURSOR 1 

20 GPRINT 32; 48; 120; 48; 32; 0; 0; 

21 GPRINT 16; 24; 28; 30; 127; 30; 28; 24; 16; 0; 



22 GPRINT 32 

0; 0; 

30 GPRINT 63 



48; 120; 48; 32; 

0; 

127; 127; 112; 48; 



40 GPRINT 124; 124; 125; 126; 125; 124; 124; 



50 GPRINT 95; 81 
88; 0; 0; 
60 GPRINT 68; 56; 88; 24 
1; 0; 
70 GPRINT 124; 126; 6; 6 



GPRINT 64 



90 GPRINT 32 

91 GPRINT 16 



96; 127 



48; 120 



1.13; 82; 84; 84; 116; 88; 

0; 

88; 61; 70; 1; 0; 
12; 60; 0; 0; 0; i 
127; 96; 68; 36; 24; 



48; 32; 



24; 28; 30; 127; 30; 28; 24; 16; 



92 WAIT 100 

93 GPRINT 32; 48; 120; 48; 32 

94 WAIT 

95 GOTO 500 
100 GRAPH 
105 COLOR 2 

110 GLCURSOR (108,-500) 

: SORGN 
120 LINE (0,500) - (-70,450)- (-20,460) - 

(-80,410) - (-25, 420) - (-90,370) - 

(-30,380) 
130 LINE - (-100,330) - (-15,340) - (-15,300) - 

(15,300) - (15,340) - (100,330) 
140 LINE - (30,380) - (90,370) - (25,420) - 

(80,410) - (20, 460) 
150 LINE - (70,450) - (0,500) 
180 FOR Z = 1 TO 9 
1.85 COLOR RND(3) 
190 READ A, B, C, D, E, F, G, H, I, J, K, L, M, 

N, 0, P, Q, R 
200 LINE (A,B) - (C,D) - (E,F) - (G,H) - (I,J) 
210 LINE - (K,L) - (M,N) - (0,P) - (Q,R) 
220 NEXT Z 



230 

240 
250 
260 

270 
280 

290 
300 

310 

320 

330 
335 
340 
345 
346 
347 
350 
500 
510 

520 
530 
540 
550 



DATA -34, 460, -36, 458, -38, 456, -36, 454, 
-34, 452, -32, 454, -30, 456, -32, 458, 



570 
580 
590 
600 
610 



-34 
DATA 

352 
DATA 

472 
DATA 

-50 

-50 
DATA 

432 
DATA 

-20 

-20 
DATA 

404 
DATA 

-70 

344 
DATA 

392 



460 
20, 360, 18, 358, 16, 356, 18, 354, 20, 

22, 354, 24, 356, 22, 358, 20, 360 
0, 480, -2, 478, -4, 476, -2, 474, 0, 

2, 474, 4, 476, 2, 478, 0, 480 
-50, 420, -52, 418, -54, 416, -52, 414, 

412, -48, 414, -46, 416, -48, 418, 

420 
24, 440, 22, 438, 20, 436, 22, 434, 24, 

26, 434, 28, 436, 26, 438, 24, 440 
-20, 400, -22, 398, -24, 396, -22, 394, 

392, -18, 394, -16, 396, -18, 398, 

400 
64, 412, 62, 410, 60, 408, 62, 406, 64, 

66, 406, 68, 408, 66, 410, 64, 412 
-70, 344, -72, 342, -74, 340, -72, 338, 

336, -68, 338, -66, 340, -68, 342, -70. 



36, 400, 34, 398, 32, 39 6, 34, 394, 36, 
38, 394, 40, 396, 38, 398, 36, 400 
GLCURSOR (-108,200) 

: SORGN 
TEXT 
CSIZE 3 

LPRINT "MERRY CHRISTMAS!" 
LF +3 

LPRINT "SEE DISPLAY ..." 
LF +4 
RETURN 
READ A, B 
IF A = THEN FOR D = 1 TO 6 

: NEXT D 
IF A = 255 THEN END 
BEEP 1, A, B 
GOTO 500 
DATA 70, 450, 50, 300, 50, 300, 50, 660, 45, 

600, 38, 400, 38, 400, 38, 1.1.00, 0, 0, 38, 

400 
560 DATA 44, 375, 38, 400, 36, 750, 53, 450, 44, 

400, 50, 300, 50, 700, 0, 0, 70, 450, 50, 

300, 50, 300 
DATA 50, 550, 45, 650, 38, 400, 38, 400, 38, 

1100, 0, 

750 



38, 400, 44, 375, 38, 400, 36, 



DATA 53, 450, 44, 400, 50, 300, 50, 700, 0, 

0, 31, 500, 31, 450, 38, 400, 27, 900, 31, 

500, 31, 400 
DATA 36,-450, 36, 800, 

400, 44, 400, 31, 800, 

500, 38, 900 
DATA 0, 0, 70, 450, 50. 

660, 45, 600, 38, 400, 38, 400, 38, 1100, 

0, 38, 400 
DATA 44, 375, 38, 400, 36, 750, 53, 450, 44, 

400, 50, 300, 50, 1000, 255, 



i, 0, 36, 500, 36, 
36, 500, 36, 400, 38 

300, 50, 300, 50, 



If you do not have the Plotter/Printer-Cassette Interface, 
you should omit lines 2, 95, and 1 00-350. Now I hear you cry, 
"But I have a Plotter/Printer for my Model I/II/III/1 6/Color 
Computer. What do you have for me?" To that I give you the 
following program for the CGP-115 Color Graphics Printer. 
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:ls 




20 1 


.PRINT CHR$(18) 


30 LPRINT "M240,-700" 




: LPRINT "I" 


40 


.PRINT "C3" 




: LPRINT "M-8,498" 


50 1 


uPRINT "00,519,8,498,-10,510,10,510,-8,498" 


r 60 ] 


.PRINT "M0,500" 


70 


LPRINT "C2" 


80 


LPRINT "D-140 ,400 ,-40 ,420 ,-160 , 320 , -50 , 




340,-180,240,-60,260" 


90 


LPRINT "D-200 , 160 , - 30 , 150 , -30 , 40 , 30 , 40 , 30 , 




150,200,160" 


100 


LPRINT "D60 , 260 , 180 , 240 , 50 , 340 , 160 , 320 , 




40,420" 


110 


LPRINT "D140, 400, 0,500 


120 


C=RND(4)-1 




: IF C = THEN GOTO 120 'NO BLACK 


130 


LPRINT "C"; C 


140 


READ A, B 




: IF A = THEN GOTO 220 


150 


LPRINT "M"; A; ","; B 


160 


LPRINT "D"; A; ","; B; ","; A - 4; ","; B - 




4; ","; A; ","; B - 8 


170 


LPRINT "D"; A + 4; ","; B - 4 


","; A; ","; 


180 


LPRINT "D"; A - 3; ","; B - 5 


","; A + 3; 




","; B - 1; "," ; A - 3; "," 


B - 1 


190 


LPRINT "D"; A + 3; ","; B - 5 


","; A - 3; 




","; B - 5 


200 


GOTO 120 


210 


DATA -40, 460, 1, 350, -100, 280, 100, 270, 




-50, 240, -150, 180, 80, 19« 


5, 170, 170, 



,"; A + 80; ","; 

50 

50; ","; A; ","; 



220 READ C 

: LPRINT "C"; C 
230 READ A, B 

: IF A = THEN GOTO 290 
240 LPRINT "M"; A; "," 
250 LPRINT "D"; A; "," 

","; A + 80; "," 
260 LPRINT "D"; A; "," 
270 GOTO 220 

280 DATA 2, -190, 100, 3, 140, 100, 0, 0, 
290 LPRINT "M- 19 0,75" 

: LPRINT "C3" 
300 LPRINT "D-190,75,-110,75" 
310 LPRINT "M-150,50" 

: LPRINT "D-150,50,-150,100" 
320 LPRINT "C2" 

: LPRINT "M160,50" 
330 LPRINT "D160,50,160,100" 
340 LPRINT "M140,60" 

: LPRINT "0140,60,220,60" 
350 LPRINT "M- 240, -10" 
360 LPRINT "S4" 

: LPRINT "Merry Christmas!" 
370 LPRINT "A" 
380 LPRINT " " 

For users of the Color Computer, change all occurrences 
of LPRINT to PRINT #-2. No further changes should be 
required. If you use a Model II, you should use the error 
trapping routine given in the printer manual. 
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Computer Customer Services 
Address and Phone Number 

8AM to 5PM Central Time 

Computer Customer Services 

400 Atrium, One Tandy Center 

Fort Worth, Texas 76102 



Model I/III Business Group 

Model 11/16 Business Group 

Languages and Compilers Group 
Color and Pocket Computer Group . . . 
Hardware and Communications Group 

Educational Software 

Games, Books, and News Product Info 
Newsletter Subscription Problems 



.(817)390- 
.(817)390- 
.(817)390- 
.(817)390- 
.(817)390- 
.(817)390- 
.(817)390- 
.(817)870- 



3939 
3935 
3946 
3944 
2140 
3302 
2133 
0407 
M 



Model III Ports 



(From Page 15) 



My disk head cleaner program, which appeared here a 
few issues ago, resulted in a flood of correspondence from 
some very nice people who wanted to know more about 
Model HI ports and their use. To answer the questions and to 
improve my own understanding, I decided to do some re- 
search, and the results are presented in the following charts. 

One common misconception, evident in the letters, was 
a tendency to equate INP with PEEK and OUT with POKE. 
Ports are not memory locations and are massaged and reset 
by the central processor at very high speeds. It is very un- 
likely that one could OUT a value to a port and find the same 
value with INP. In fact, with only a very slight delay, a port can 
be loaded with data via the OUT command and then read 
immediately using INP, providing entirely different informa- 
tion having to do with a device's status. Perhaps the confu- 
sion arises because the Model I was "memory-mapped" and 
communication was with what seemed like memory ad- 
dresses (actually, they were not RAM addresses but 'ad- 
dressed devices'). Early Model I computers used only one 
port— FFH (255) for the cassette. Later, additional ports were 
claimed by the RS-232 interface, and these same ports are 
used in the Model III. In fact, the Model III did away with 
memory-mapping altogether except for the display which is 
truly memory-mapped in RAM. 

The Z-80 processor is capable of communicating with 
256 'ports' which are usually assigned to peripheral devices. 
It establishes the link by using the address bus and the data 
bus, sending out 8-bits of a port address and a signal saying, 
"I have an I/O address here." It is the responsibility of the 
peripheral device to recognize its unique I/O address and to 
receive or transmit data. The charts which follow list the ports 
known (by me) to be assigned in the Model III and their 
approximate memory-mapped counterparts in the Model I. 

The ports assigned to disk operations must be carefully 
addressed as regards timing and sequence. So, with the 
exception of simple select, restore, and seek operations (as 
were used in my head cleaning program), they are not of 
much use to the BASIC programmer. The ports assigned to 
the RS232, line printer, and cassette recorder, on the other 
hand, are very amenable to use from within BASIC. -H 
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Profile 



Profile III + : Setting Up a User 
Menu 

Profile 

The small Computer Company 

Written for the users of PROFILE II, PROFILE + and PROFILE III + 

PROFILE Editor 

P.O. Box 2910 

Fort Worth, TX 76113-2910 

By Ivan Sygoda, Director, Pentacle 



Once you've set up your PROFILE III + data base, your 
last step is to define your user menu. Creating a user menu is 
optional but well worth the effort because of the increased 
speed and ease with which you can manipulate your files. 
The manual which came with your copy of the program tells 
you how to set up the user menu, and you should refer to the 
manual for general instructions. In this column, we'll explain 
some of the finer points of menu creation, especially substitut- 
ing the user menu for the regular Runtime menu. 

MENU NAMES 

Setting up a menu is easier than it looks at first. The 
trickiest part is the menu itself. Some of the confusion over 
names stems from the fact that there are three independent 
entities that can be construed as menu names: 1 ) the heading 
for your menu, which is actually only the text that serves as a 
title at the top of the menu screen, 2) the six-character entry 
you can use to code or identify the menu, which appears only 
during menu creation, never to be seen or used by the 
program again, and 3) the real menu name, which is listed in 
the DIRectory and which is the file called by PROFILE ITI + 
when you ask for the user menu. 

More confusion stems from the name changes you must 
make to substitute the user menu for the Runtime menu 
supplied by Radio Shack. (Why substitute? If you do, your 
user menu, rather than the regular Runtime menu, appears 
whenever you reset the computer or finish an operation.) The 
original Runtime menu is RM/CMD (CM/CMD is the Creation 
menu). The reason menu names have to be juggled is that 
PROFILE III + knows only how to call for something named 
RM/CMD when it wants a menu. Consequently, to substitute 
a user menu for the Runtime menu, you must take these 
steps: 

1) At definition time, the user menu-to-be must originally 
be called anything but RM/CMD. We suggest Ml/ 
CMD, although any permissible TRSDOS file name 
will do. 

2) When the user menu has been completed and 
checked, the Runtime menu (RM/CMD) must be re- 
named (with the RENAME command). Again, any 
name but RM/CMD is appropriate. The manual's 
suggestion, HOLD/CMD, is as good as any other and 
easy to remember. 

3) Finally, since there must be something called RM/ 



CMD for PROFILE III + 
menu RM/CMD. 



to call, RENAME your user 



IF ONE IS GOOD, MORE IS BETTER 

You'll appreciate the ease with which your user menu 
takes you right into your data base. You'll also soon realize, 
especially if you have formatted a variety of screens, reports, 
and labels, that the eight user menu choices allowed may not 
be enough. Indeed, you will probably have only seven 
choices, since it's a good idea to use one of the eight for 
calling the PROFILE III + Runtime menu (now called HOLD/ 
CMD, remember?). 

The solution is simple: make a multi-page user menu! 
The first page (or screen) of your menu is the new RM/CMD. 
Define another user menu— select "Define User Menus" 
from the Creation menu-— giving it the file name "M2/CMD" 
or something similar. Then add M2/CMD to RM/CMD as a 
menu entry. You should also add an entry on the page 2 
menu, M2/CMD, for the page 1 menu, RM/CMD. 

Another option is creating a three (or more) page menu, 
each page called from another menu or even from a menu of 
menus. You could have one page for inquiry options, one for 
report options, and one for label options. This would give you 
enough room to have separate choices, for instance, 
for "Report 1, Normal Selection" and "Report 1, Extended 
Selection." 

Each user menu occupies six granules of disk space but 
can be placed on any available drive. 

DON'T PASS OUT: PASS PARAMETERS 

The PROFILE III + manual discusses ways to have the 
computer enter keystrokes automatically when a certain 
menu selection is made. For instance, something like "EFC8 
A (YOURFILE.1, PRINT REPORT FROM FORMAT ONE)" will 
take you all the way to the sorting prompts. 

It's possible to get even further into your program by 
using a DO file to pass additional keystrokes to PROFILE 
III + . To continue with the example above, if you consistently 
use report format 1 to make zip-coded sorts, you could 
construct the following "DO" file using theTRSDOS "BUILD" 
command: 

Instructions: Comments: 

BUILD ZIPSORT "ZIPSORT" is the name of the DO file. 
(ENTER) 
EFC8 A(YOURFILE, This passes the file name, format and 
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1 .PRINT REPORT heading to the DO file. 

FROM FORMAT ONE) 

<ENTER> 

3 <ENTER> Your zip code field number is 3; press 

< ENTER) to record it. 
(ENTER) To use the entire field length for 

sorting. 
(ENTER) To select all records. 

(BREAK) To record the DO file; "TRSDOS 

Ready" returns. 

Then replace "EFC8 A (YOURFILE.1, PRINT REPORT 

FROM FORMAT ONE)" with "DO ZIPSORT" on your user 

menu: 

1 Print Report 1 in Zip Code Order DO ZIPSORT 

Pressing "1" on the menu now prints the entire report 
without any user intervention. 

BUILD A STAIRWAY TO THE STARS 

There is almost no limit to the operations you can run 
automatically with such a DO file. Suppose the above report 
format were a 132-character format, but your dot matrix 
printer has a default setting of 80 characters. Your printer can 
be initialized automatically for 132-character reports (assum- 
ing it is capable of 132 column operations) by adding the 
following commands to the beginning of the ZIPSORT file 
(Please note that this program applies to a Radio Shack Line 
Printer IV. Consult your own printer's user manual for equiva- 
lent commands.) 

Instructions: Comments: 

BUILD ZIPSORT You can rewrite the DO file to include 
(ENTER) the new instructions. 

PAUSE Printer Ready, 
on Line? (ENTER) This prompts the operator to check the 

printer; the message "Press 

(ENTER) to continue" will follow 

"Printer Ready . . .". 
BASIC (ENTER) Go into BASIC. 
(ENTER) Press (ENTER)— you don't need to 

open files. 
(ENTER) Press (ENTER) again to skip the 

memory size prompt. 
LPRINT 

CHR$(27);CHR$(20) 
(ENTER) This is the code to change the default 

to 132 characters. 
( ENTER > Press ( ENTER > so that BASIC knows 

to continue. 
CMD"S" (ENTER) This command returns you to 

TRSDOS. 
EFC8 
A(YOUR FILE . . . Continue as before. 

The final step in automating your menu is to add an "AUTO 
RM" command to your Runtime diskette. When you boot up, 
page 1 of your user menu will automatically appear on your 
screen after the data and time prompts are answered. It is 
then possible to print an entire 30-page report with only two 
keystrokes— the "1" to start the operation from the menu, 
and (ENTER) when the printer is ready. 

MAKE YOUR DATA BASE USER-FRIENDLY 

You'll soon become adept at making PROFILE III+ do 
what you want it to do. The next level of sophistication is 
getting the people in your office who use your program to use 



it the way you had in mind. A well-thought-out user menu 
system will make the program more transparent to your 
colleagues, which in turn will increase efficiency. Here are a 
couple of pointers and ideas. 

Group functions logically, in chronological order or ac- 
cording to priority. For instance, don't place "Add Records" 
between "Print Report 1" and "Prepare Mailing Labels". 

If different operators perform different functions, give 
each one his or her own menu page, even at the cost of 
duplicating selections. 

PROFILE III h- is all about improving work flow. Keep 
this foremost in mind as you design your user menus. 

Profile Editor's Note: This is Mr. Sygoda's third selection 
in a series of 'how-to' PROFILE III+ articles. Other articles in 
the series will be published over the next few issues in this 
column. We hope that you enjoy this new feature, and we look 
forward to your comments and questions on PROFILE 111 + . 

Pentacle is a New York City-based non-profit service 
organization specializing in administrative services for per- 
forming art groups. 

PROFILE PLUS: WHAT TO DO WHEN YOU GET AN 
ERROR 

PROFILE PLUS is a nearly fool-proof program. Nonethe- 
less, our readers tell us that sometimes they do get error 
messages and would like help in figuring them out. So, in 
response to your queries, part two of this PROFILE column 
will be our suggested PROFILE PLUS troubleshooting 
procedures. 

We recommend, first of all, that you keep a log with a 
section on problems and troubleshooting. A troubleshooting 
log is very helpful reference material for anyone using your 
PROFILE PLUS system. 

This log should have five columns of entries: "What 
Program Were You Using?" when you saw the error; "Name 
of File and Extension"; "Error Number"; "Any Special Cir- 
cumstances?"; and "Date." 

ERROR TYPES 

In general, there are two kinds of errors: operating errors 
and system errors. 

When the program doesn't do what you expected it to 
do, that's an "operating" error. For example, you thought you 
indexed a data base on field 1 , " Last Name." When you go to 
update records, however, you find that the field shown on the 
index screen is field 2, "First Name." You've made a mis- 
take—what is it? 

A "system" error gives you an error message and drops 
you into system mode— the line "TRSDOS READY" appears 
beneath the message. For help with these errors, look in the 
following section, "System Errors and Solutions." 

HOW TO HANDLE ERRORS 

Your first response to an error message should be to 
decide if you understand why you got it and if you can fix it 
without help. 

If not, you should write the error message down in your 
troubleshooting log noting: 

1) the PROFILE PLUS operation, 

2) the name and extension of the file you were using, 

3) the error number, and 

4) any unusual circumstances surrounding the error 
condition— a brown-out, for instance. 



TRS-80 Microcomputer News, December 1982 



19 



Then look for the reason you got the error. Once you get 
an explanation, you should put it in the log also. 

OPERATING ERRORS AND SOLUTIONS 

To find out why you're seeing operating errors, turn to the 
part of the PROFILE PLUS manual that describes the opera- 
tion you're in, and look through the instructions. Watch espe- 
cially for notes— your problem may be explained there. If not, 
check that you did each step of the operation correctly and 
used the proper syntax. 

SYSTEM ERRORS AND SOLUTIONS 

There are two ways to find explanations for system er- 
rors. One is through the computer itself. The other is through 
reference materials like your manual or this column. 

COMPUTER 

If the program only shows you the number of the error, 
type in the word error and the error number when you see the 
message "TRSDOS READY" and press (ENTER). For in- 
stance, type: 
ERROR 4 

Press (ENTER). The computer responds: 
CRC ERROR DURING DISK I/O OPERATION 
(See below for an explanation.) 

The error messages in PROFILE PLUS programs always 
include descriptions of the problem and the name of the file in 
which the error occurred. For instance, in the PROFILE PLUS 
Inquire, Update, Add program you might see this error: 
DISK ERROR CODE 28 OCCURRED ON FILE INVOICEX/ 
IY1 ATTEMPT TO READ PAST EOF 

You probably tried to use an index with no records in it. 
This would happen if you had started to index the INVOICEX 
data base earlier, then changed your mind and broke out of 
the index operation before the computer could write any 
records into the index file. 

REFERENCE 

A list of operating system error messages is available in 
the Disk Operating System Reference section of your TRS-80 
Model II Owner's Manual , under "Technical Information". 
Some system errors are more common than others. 
Following is a list of errors, possible reasons for their occur- 
rence, and what you can do about them. 
4 CRC ERROR DURING DISK I/O OPERATION 

The computer, in attempting to read data off a diskette, 
discovers that it cannot verify the data. An error 4 may 
indicate a magnetically— damaged diskette. 
Error 4s are sometimes transient. Try the question a 
few times. If you continue to get the error, go into 
TRSDOS, open the drive door, take the diskette out, 
and put it back in to reseat it. You might also try moving 
the diskette to another drive. 
If any of these procedures work, immediately back up 
the problem diskette onto a fresh diskette. Watch for 
error messages— if there are no errors, then the infor- 
mation was recovered and your new backup diskette 
can be used. Do not use the original diskette. Label 
this diskette as damaged and remove it from use. 
If errors do appear during the backup operation, nei- 
ther the original diskette nor the new backup diskette 
is usable. You will have to go to an earlier set of 
backups— from this point on, use these diskettes. 



5 DISK SECTOR NOT FOUND 

The computer tried to read a specific sector on a 
diskette and could not. Possibly a mechanical prob- 
lem; more likely, the sector was magnetically 
damaged or erased. Follow the error 4 instructions. 

6 ATTEMPT TO OPEN A FILE WHICH HAS NOT BEEN 
CLOSED 

This probably means that the diskettes were removed 
from the system or the computer was reset without 
exiting PROFILE PLUS first. Simply try the operation 
again— in the process of giving you the error mes- 
sage, PROFILE PLUS closes the files. 

8 DISK DRIVE NOT READY 

Check to see if the drive door is open, if the specified 
drive has a diskette in it, or if the diskette is in 
backwards. 

15 DISK IS WRITE PROTECTED 

The silver tab over the notch on the diskette has come 
off. Also check that you have the right diskette in 
the drive— a CREATION or master diskette is write- 
protected for a reason. 

19 IMPROPER FILE NAME (FILESPEC) 

You may have mis-typed a file name or its extension, 
or some other specification— drive number, pass- 
word, etc. 

24 FILE NOT FOUND 

You have misspelled the file name, have the wrong 
diskettes in the system, or the data base or parts of the 
data base (MAP, KEY, DAT, DA2, DA3, etc.) have been 
erased. PROFILE PLUS tells you the name of the 
missing data base. Also check that you typed the file 
name in all upper-case letters, or upper-and lower- 
case letters, as you defined it. 

25 FILE ACCESS DENIED DUE TO PASSWORD 
PROTECTION 

The file, format, or screen you asked for is protected 
by a password, or you have misspelled the password. 

28 ATTEMPT TO READ PAST EOF 

EOF is End Of File. This error usually occurs if a format 
or index was started but not finished— there are no 
records in the file. For instance, you opened the "De- 
fine Math Formulas" operation, but defined no formu- 
las. You must either return and finish the operation or 
format, or kill the incomplete file. 

31 PROGRAM NOT FOUND 

You have the wrong diskettes in the system, or the 
program has been erased. 

40 SEEK ERROR 

Errors 4, 5 and 40 may all mean that the diskette has 
been magnetically damaged. Error 4 means an error 
on a sector; error 5 means the computer couldn't find 
the sector; error 40 means it couldn't find the track. To 
correct or to find the nature of the error, try your 
operation again, try a different drive, and if worse 
comes to worst, use your backups. Notice if any of 
these errors occur during backup. If you try to use the 
diskettes with these errors, you'll have unreliable re- 
sults. 

42 PRINTER NOT READY 

Check to see if the printer is turned off, off-line, discon- 
nected, if there is no paper in the printer, or if the 
ribbon or ink has run out. J3 
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Measurement and Curve Integration JUL/AUG, 18 

Programs 

Data File Recording Program by A. Barclay OCT.39 

Descenders on the LP VII by J. Diel NOV.29 

Line Printer Set Up by W. Allen NOV.27 

Line Printer VI Control Program 
by H. R. Priesmeyer FEB, 33 



LP VI Underline/Boldface by D. Wood FEB, 15 

More TAB and USING in a Total Inventory 

Program by R, Perkins NOV.27 

Printing Titles by B, Christ NOV.26 

Quick Label by R. W. MacLean FEB, 28 

Revisions, Enhancements, Etc APR, 7 







Pocket Computer 

Availability of 16K RAM Modules for the PC-2 DEC, 42 

Pocket Computer II Start-Up Instructions SEP.39 

Word Processing on the Pocket Computer 

by D. Hergert NOV.32 

Bugs, Errors, and Fixes 

Calendar (26-3529) OCT, 43 

Electrical Engineering (26-3520) MAR, 43 

Personal Finance (26-3518) JUN,9,JUL/AUG,42 

Surveying (26-3512) JUN,9;JUL/AUG,42 

Product Line Manager's Page 

Pocket Computer Model PC-2 MAY.42 

Printing Features of the PC-2 JUN.5 

Retirement Income Projection JAN, 45 

Programs 

Circle Subroutine for PC-2 NOV.36 

Clock/Scheduler for the Busy Executive by J. Titus . . . DEC, 28 

Compound Miters by B, Taub APR, 40 

Convert Integer to Binary by M, E, Wilborne MAR, 44 

Convert 35MM to 16MM by R. Edwards JUL/AUG, 11 

Cost Comparison by V, Scally JUUAUG.41 

Cub Scout Song by J. L Schafer APR.40 

Data File Recording Program by A. Barclay OCT.39 

Factorials by T Cox JUL/AUG, 41 

Homework by B. Cutler SER39 

Measurement Conversion by F Bishop JUL/AUG, 40 

Mileage Calculations by A. Leiwant JUL/AUG, 42 

MPG on the PC by B. Taub JUL/AUG.42 

Multiple Linear Regression by G. Bryant APR.38 

One Armed Dime Bandit by D. W. Bond JAN, 46 

PC-1 Twelve Days of Christmas by R. K. Phelps DEC.42 

Pearson <R> Correlation by G. Currah OCT.43 

Pocket Computer Programs by F. Nachbaur MAR, 36 

Printer Plot by H. G. Dorsey III FEB.46 

Projectile Trajectory by L. Mermelstein JUL/AUG, 40 

Pythagoras' Theorem by J. Strolin APR, 40 

Resistor Values by R. Edwards JUL/AUG, 41 

Reverse Polish Notation on the Pocket 

Computer by J. Morrison OCT, 40 

Star Trek Fight by R. Saccone FEB, 45 

Step Saving Ideas by L. Levine APR, 37 

Use of the TRS-80 Pocket Computer in 

Celestial Navigation by D. Parson SER40 

You Want to Calculate What? JUL/AUG, 40 

Revisions, Enhancements, Etc JAN,46;APR,39 

View from the 7th Floor 

by Jon Shirley JAN,4;FEB,4;MAR,4; 

APR,4;MAY,4;JUN,4;JUL/AUG,4;SEP,4;NOV,4;DEC,4 
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Notes Previous 



NOVEMBER 1981 

Mode! Ill Directory Menu 

Richard Ellers 

426 Central Parkway SE 

Warren, OH 44483 

Here is what may be the world's shortest, practical 
BASIC program: 



1 NEW 
SAVE "NEW" 



I devised it to use with James Ditucci's terrific auto load- 
ing Model III directory menu from the November 1981 
TRS-80 Microcomputer News. 

Ditucci devised his auto-loaded directory so a user 
would not have to know about and go through booting. 

"NEW" adds convenience for the programmer by pro- 
viding direct entry into program-writing BASIC mode without 
having to suppress the auto load on BOOT or having to load a 
program from the menu, breaking it, and starting NEW. 

In the same fashion, another short program gets you to 
TRSDOS directly from Ditucci's menu. 

1 CMD"S" 
SAVE "CMD/S" 

FEBRUARY 1982 

BASICally Speaking 

Bruce Lewis 

Box 395 

Osceola, MO 64776 

In the February 1982 issue on the product line manag- 
er's page, there was a program that used RND(TIMER) to 
scramble the Color Computer's random sequence. This 
doesn't seem to work on my Extended BASIC version. The 
assembly language listing below is the ultimate way to scram- 
ble the sequence. It uses the timer to scramble the memory 
holding the position of the random sequence. 

To use the code below, you may have to refer to the 
article on assembly language programming in the February 
1982 issue of Microcomputer News. 

This may be used as a subroutine in your BASIC pro- 
gram. Pressing (BREAK) while this subroutine is working 
will not stop your BASIC program. The computer will strobe 
the keyboard again to see if < BREAK) is pressed, and since 
it doesn't use auto repeat, it will recognize no keys. 

I hope to see other assembly language programs in 
future issues of this magazine. It should save other program- 
mers from insomnia. 



MARCH 1982 

Relocating Machine Language Programs 

David D. Bailey 
3962 Petite Dr. W. 
Jacksonville Beach, FL 32250 

m regards to the March article about Relocating 
Machine Language Programs, there is another problem that 
can occur with any program that requires information to be 
stored from the program. Although you point out that the 
"SAVE" command will still store data on cassette tape, you 
failed to tell the Model III user that they must make one more 
change to allow this to occur. 

The original programs, such as "Cassette Scripsit", were 
designed to operate at Low Baud. When they were trans- 
ferred to disk, the computer operated in High Baud. This will 
not allow programs already stored to be LOADed, nor will the 
program "SAVE" or "LOAD." 

This can be corrected using the following sequence. 

(1) Patch to prompt for the Baud Rate: 

PATCH BASIC/CMD (ADD=5202 ,FIND=00 ,CHG=FF) <ENTER> 

You must follow the sequence below each time you 
re-boot. 

(2) a. Start TRSDOS 

b. Answer Date Prompt 

c. Answer Time Prompt 

d. BASIC (ENTER) 

e. CASS? L 

f. (ENTER) 

g. (ENTER) 
h. CMD"S" 
i. SCRIPS/CMD 

I realize this is an involved start-up sequence, but by 
using this method you can "SAVE" your programs to tape. 



Go to Disk BASIC 



Returns to TRSDOS 
Loads Program 



APRIL 1982 

Linefeed with a Carriage Return 

David E. Pitts 

16011 Stonehaven Drive 

Houston, TX 77059 

I am currently using a Dot Matrix printer with my 32K 
Color Computer. Since this printer has had the automatic 
linefeed circuit disenabled, I was very interested in Ed Hamil- 
ton's article "Linefeed with a Carriage Return." Since I write 
many of my BASIC programs with maximum packing (up to 
255 characters per line), I needed Hamilton's routine to give a 
carriage return and linefeed after each N characters have 
been printed. The program is currently set up for N = 78 
characters (change line 165 to have other line widths). This 
not only allowed me to print my long lines with abandon, but 
also to print narrow columns if I should so desire. Below is the 

Hamilton for an 



0FE2 
0FE2 


FC 


0FE2 


00100 ORG 
00110 START LDD 


$FE2 
$FE2 


GET SEED FROM TIMER 


BASIC program. My compliments to Mr. 1 


0FE5 


F3 


0116 


00120 


ADD D 


$116 


\ 


excellent program. 


0FE8 


FD 


0116 


00130 


STD 


$116 


I 




0FEB 


F3 


0117 


00140 


ADD D 


$117 


MIX WITH RANDOM 


10 REM O/S PATCH FOR LF ON CR 


0FEE 


FD 


0117 


00150 


STD 


$117 


SEQUENCE MEMORY 


20 REM MODIFIED BY DAVID PITTS FROM ED HAMILTON 


0FF1 


F3 


0118 


00160 


ADD D 


$118 


I 
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0FF4 


FD 


0118 


00170 


STD 


$118 


/ 


30 REM MODIFIED TO GIVE LF AND CR AFTER 78 


0FF7 


AD 


9F A000 


00180 


JSR 


[$A000] POLL FOR KEY 


CHARACTERS 


0FFB 


81 


03 


00190 


CMP A 


#$3 


<BREAK> PRESSED? 


100 REM PUT CODE AT MEMTOP -41 (CODE IS AT 32726, 


0FFD 


26 


E3 


00200 


BNE 


START 


IF NO, CONTINUE 


32725=WORKING) 


0FFF 


39 




00210 END 


RTS 




RETURN TO BASIC 


110 MT=PEEK(116) * 256 + PEEK(117) 






0000 


00220 


END 






112 MT=MT-40 


00000 


TOTAL ERRORS 










120 FOR I = TO 39 
















122 READ T 


END 


0FFF 










124 POKE MT + I, T 


START 


0FE2 










126 NEXT 
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130 


REM SAVE 0/S CODE 




140 


REM PUT JMP ON O/S HANDLER 




142 


AH = INT(MT/256) 




144 


AL = MT - AH * 256 




146 


POKE 359, 126 




148 


POKE 360, AH 
: POKE 361 , AL 




150 


REM MACHINE - LANGUAGE CODE 




151 


DATA 52, 4, 214, 111, 193, 254 




155 


DATA 38, 27, 124, 127, 213, 129 




160 


DATA 13, 39, 10, 246, 127, 213 




165 


DATA 193, 78, 38, 13, 189, 162 




166 


REM CHANGE 78 IN ABOVE LINE TO BE LINE 
DESIRED. 


WIDTH 


170 


DATA 133, 127, 127, 213, 134, 10 




175 


DATA 189, 162, 133, 134, 13, 53, 4 




180 


DATA 126, 203, 74 




200 


REM RESERVE MEMORY 




210 


CLEAR 200, MT-1 




220 


CLS 




230 


NEW 




999 


END 




JUNE 1982 





Concentric Circles 

Donan C. McGinley 
Keystone Engineering Corp. 
845 N. 19th Street 
Philadelphia, PA 19130 

I just wanted to make a few additions to Stephen Haven's 
Concentric Circles program. To begin with, an LPRINT in- 
serted at line 85 gives the program a little animation. All sorts 
of variations are possible. Making the value of the resolution 
greater slows the animation while making it smaller speeds it 
up. The value for the number of spaces determines how 
quickly the spaces on the screen vary. Changing the constant 
in line 70 (2.6667) to a smaller value also causes interesting 
changes. 

The program is even better when an extra line or circle is 
plotted. Below are two additions that can be made: 

SIN(A)) : H = 23 - Y * 



71 


G = 63 


+ Y * 


(2. 


.6667 




COS (A) 






81 


SET (G, 


,H) 






85 


LPRINT 








or 










81 


SET (N, 


,N) 







85 LPRINT 

By experimenting with various sizes, resolutions, and 
spaces, all sorts of amusing things appear. The possibilities 
are endless. 

Andrew Pensky 
105-25 67 Ave. 
Forrest Hills, NY 11373 

On page 32 of the June 1982 edition, you printed a 
program called "Concentric Circles." While running the pro- 
gram through the computer, I noticed two mistakes in line 90. 

Line c 90 read: 

90 NEXT A 

: Y = Y - 1 - Z 

: IE Y < THEN 160 ELSE 90 

Line 90 should read: 

90 NEXT A 

: Y = Y - 1 - Z 

: IF Y < THEN 120 ELSE 60 

The first mistake was that there was no line 160 for the 
computer to go to. And the ELSE function in that line sends 
you back to a NEXT A statement which causes a NEXT 
without FOR error. To see the program work as stated, input 
Y = 23:X = 23:Z = 6 when prompted by the program. 

Graphs for the PC-2 

The following are known errors in the Graphs for the 
PC-2 program which appeared in the June 1982 issue. 



Line 944 should be entered as line 955. There is no line 
944. 

In line 1 045 the semicolon (;) preceding the final USINGa' 
statement in the line should be changed to a colon (:). 

In line 1115 where the statement ...LETL = I... ap- 
pears, the letter I should be changed to the number 1 . 

Our thanks to Mack R. Rhea of Nashville, Tennessee and 
Robert C. Taylor of Montreal for these changes. Mr. Taylor also 
sent the the following changes. 

Line 1225 becomes: 

IF L>3 LET L=l 

Line 1226 becomes: 

LINE (V,P) - (S,P),0,L 

Line 1260 becomes: 

IF L>3 LET L=l 

Line 1261 becomes: 

LINE (P,W) - (P,T),0,L 

JULY/AUGUST 1982 

Asteroids 

Joseph Prisco 
RD #7 Box 80 
Oswego, NY 13126 

I have just reached a score of 3998 in Richard Zepp's 
"Asteroids" with screen number 118. This tops the shown 
high score to date. Also, I changed the color of the "Ship" so it 
is easier to see in black and white and added two lines to 
make the high score tally along with the player's score (if it's . 
the high). They are as follows: 

29 5 IF S > HS THEN HS = S 
311 IF S > HS THEN HS = S 

SCRIPSIT and the LP VIII 

H.U. Kohler, CDP 
P.O. Box 628 
Proctor, VT 05765 

The July/August 1982 issue addresses SCRIPSIT and 
the LP VIII by Gilbert Keith. To add to the list of many 
possibilities, my SCRIPSIT disk, when RESET, goes AUTO- 
matically to the BASIC program "PRINTER" which displays 
the appropriate menu. After the desired typestyle is entered 
the program automatically goes back to TRSDOS with the 
CMD"S" statement. 

Needless to say the printer should always be reset prior 
to running "PRINTER." 



' ***************> 



************ 



**************** 



PROGRAM TO SET UP PRINTER TYPE AND SPACING 

3Y: H.U. KOHLER, CDP 
P.O. BOX 628 
PROCTOR, VT 05765 



CLS 

: PRINT@202," 

MENU 

PRINT@266,"1 - PRINT 

CHARACTERS" 
PRINT@330,"2 
PRINT@394,"3 

CHARACTERS' 
PRINT@458,"4 

LINES PER INCH 
PRINT@522,"5 - PRINT 

CHARACTERS, 6 LP I" 



EXPANDED REGULAR 



PRINT 
PRINT 



PROPORTIONATE CHARACTERS' 
PROPORTIONATE EXPANDED 



PRINT CONDENSED CHARACTERS, 6 
CONDENSED EXPANDED 



\ 
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17 PRINT(a586,"6 - PRINT CONDENSED CHARACTERS, 3/4 

VERTICAL SPACING" 

18 PRINT@714, "ENTER FUNCTION CODE:"; 

19 INPUT I 

20 ON I GOTO 22, 24, 26, 28, 30, 32 

21 GOTO 12 

22 LPRINT CHR$(27);CHR$(14) 

23 CMD"S" 

24 LPRINT CHR$(27);CHR$(17) 

25 CMD"S" 

26 LPRINT CHR$(27);CHR$(14);CHR$(27);CHR$(17) 

27 CMD"S" 

28 LPRINT CHR$(27) ;CHR$(20) 

29 CMD"S" 

30 LPRINT CHR$(27);CHR$(20);CHR$(27);CHR$(14) 

31 CMD"S" 

32 LPRINT CHR$(27);CHR$(20);CHR$(27);CHR$(56) 

33 CMD"S" 

More about SCRIPSIT 

Carol V. English, Ph.D. 
9920 West 34th Drive 
Wheat Ridge, CO 80033 

Since our office acquired the Model II, my secretary 
complains that I leave her only the routine things to type up! 
I'm enjoying so much of the software myself. 

In the July/August issue on page 13 of "More about 
SCRIPSIT," there is a suggestion on how to address an 
envelope. I think my method is a bit less cumbersome. Possi- 
bly, it just seems that way to me because I created the 
method. 

After I type the letter, I define the addressee information 
from the letter and duplicate it on the page I create for this 
purpose which follows the last page of the letter. <CTRL> 
<R> sets up the address. After I print the letter (set up on the 
print menu to stop after the last page of the letter), I go back to 
the print menu for the document and program it to print only 
the address page. Since the company stationery envelopes 
have our return address on them, I need only to program the 
print menu for the column position that fits the size of the 
regular envelope. (In our case, 40) 

For a large manila envelope, I execute a user key defined 
for my company's return address, press < ENTER) eighteen 
times, change the format line to conform to the larger enve- 
lope (TABs here would require a line-by-line entry or rear- 
rangement for the block form), and do a <CTRL> <R> to 
bring up the duplicated address from the letter. 

I hope Model II users find this as easy a method as I do. 

Andrew J. Wheeler, Ph.D. 
Department of Human Resources 
State of North Carolina 
Murdoch Center 
Butner, NC 27509 

I enjoyed your July/August issue featuring word pro- 
cessing and thought that you might be interested in our 
adaptation of your method for addressing envelopes 
described on page 13. Our office has a 48K, two disk 
Model III with Daisy Wheel II Printer and Scripsit. We have 
put the letter and envelope on separate pages of a single 
document. Since Scripsit does not have user-defined keys, 
the addressee block at the beginning of the letter is defined as 
Block A. Then on the second page (the envelope) of the 
document, the return address is typed to appear on the 
upper left corner of the envelope, the margins are reset for the 
address (LM = 40 works for a standard business envelope), 
and a number of line feeds are entered for centering the 
address. At the place where the address should go, a com- 
ment line is entered, "Insert Block A Here." When typing form 
letters, simply type in the name and address at the beginning 



of the letter, and then move the cursor down to the beginning 
of the comment line. Insert Block A, then insert stationery into 
the printer and give the print-with-pause-between-pages 
command. Insert envelope for second page, and you get the 
letter and envelope after having typed name and address 
only once. 

I hope this adaptation will be helpful for Model III and 
Scripsit users. 

Sieve of Eratosthenes 

Joel M. Jacobson 
5 Sudbrook Court 
Pikesville, MD 21208 

The article by Wm. Barden, Jr., "Sieve of Eratosthenes" 
was especially interesting to me since I have been using the 
simple BASIC program below to determine prime numbers. 
While this should work between any limits, the time-becomes 
excessive for very large numbers. 

10 PRINT "ENTER RANGE IN WHICH PRIME NUMBERS ARE 

DESIRED." 
20 INPUT "LOWER LIMIT, UPPER LIMIT"; L,U 
30 N = L 

40 FOR M = 2 TO N - 1 
50 X= N/M 

60 IF X-INT(X)=0 THEN 100 
70 NEXT N 
80 PRINT N; 

100 N = N + 1: IF N > U THEN END 
110 GOTO 40 

Color Scripsit Bug 

David Bressan 
2815 Ritchie Rd. 
Forestville, MD 20747 

I read your July/August issue and found others have 
encountered the bug in Color Scripsit concerning TAB 
«SHIFT> (RIGHT ARROW)) when in the Insert Mode. To 
avoid this, set a tab stop at the right end of the line when you 
start up or load from tape. You will then only insert spaces to 
the line end and not to memory end. 

Graphic Keys 

Robby Bennett 
2702 S. Banker 
Effingham, IL 62401 

On page 1 7 of the newsletter the program Graphic Keys 
contains an error. Change 7 LPRINT CHR$(21); to 7 PRINT 
CHR$(21); JH 
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Pocket Computer 




lock/Scheduler for the Busy 
ecutive 



John Titus 
P. O. Box 153 
Descanso, CA 92016 



Our hypothetical Mr, X is a busy executive with many 
demands on his time. Unfortunately, he also has many inter- 
ruptions and is somewhat absentminded, so he needs fre- 
quent reminders of what he has to do next. For this he doesn't 
particularly want the time. What he wants is to know how long 
it will be until the next thing he has to do. 

Mr. X also has a number of clients throughout the world 
(New York, London, Pago-Pago) and sometimes needs to 
call them. 

Because of its flexibility and special features such as 
TIME, the PC-2 is an ideal way to handle these functions. 
(Remember how to set the TIME? According to your PC-2 
manual, TIME can be set or reset by typing: TIME 
= MMDDHR.MMSS<ENTER>. That's two digits each for 
month, day, hour, a decimal point, and two digits each for 
minutes and seconds.) 

The program operates in 4 modes: 

1. F3:GOTO 75@ 

This entry clears the previous schedule and sets up a 
new one. The time for each appointment is entered as 
HR.MN(P), using Hours (2 digits), Minutes (2 digits), with a 
decimal point in between. For times after Noon, P must be 
added. (A for AM is optional.) EVENT is a short note which 
may be added as a reminder of why the time is being set 
aside. A printed record is produced. 

Note: This entry must be entered first, since it sets up the 
DIM Statements for the variables. Here is a sample: 

SCHEDULE 



In the above example, the time is 3:57P, and the items 
displayed are the two between 3:57 and 4:47P (the items at 
4:20P and 4:40P). 

We should add a detail here about the program's sorting 
capabilities. All events which are scheduled to occur within a 
given hour will be displayed. However, their order of display 
will depend on how they were originally input. The two dis- 
plays which follow were input in chronological order (see 
display screens, #3 and #4). If their input had been switched, 
their order of appearance, within that given hour, would also 
have been switched. 

Push < ENTER) after the BUSY signal goes out, and the 
time before the first item will be displayed. 



Push 
displayed. 



<ENTER> again and the next one will be 



4. F2:GOTO 200@ 

This entry gives times in various cities. City names and 
time differences are stored in DATA. The display will show: 



n 1 10.25 CALL J 

it Z 12. 10P LUNCH W 

JTH n 

n 3 4.20P MEET UJT 

H A&C 

# 4 4.40P HENRY G 

2. F4:GOTO 80@ 

This entry adds items to the schedule without disturbing 
existing items. 

3. F1:GOTO 10® 

This item presents the local time and a graphic display 
(with 10-minute interval markers) plus a small cross for each 
item on the schedule occurring within the next 60 minutes. 




The first two digits entered must correspond to the first 
two digits stored in the city's name in DATA. Thus for London 
time, these could be LO, LON, etc. 




Push < ENTER) and the time in London is displayed: 
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And with all this, Mr. X still manages to miss an appoint- 
ment now and then. But everybody admits he is a lot better 
then he used to be! 

If no printer is available, the LP and LF instructions in 
Statements 75 and 95 should be removed. 

10 REM DISPLAY SCHEDULE 
15 GOSUB 100 

:D$=STR$ D 

:C$=STR$C 

:B$="0" 

:IF D<10 LET D$=B$+D$ 
20 CLS 

:WAIT 

:FOR 1=39 TO 147 STEP 18 
25 GCURSOR 1=1 

.•GPRINT 65 

: GCURSOR I 

: GPRINT 34 

: GCURSOR 1+1 

: GPRINT 65 

:NEXT I 
30 CURSOR 

:PRINT C$;":";D$;A$ 
35 FOR 1=1 TO 10 

: GOSUB 180 

:GOTO 35+X 
40 V=108*U+40 

: GCURSOR V-l 

: GPRINT 8 

: GCURSOR V 

: GPRINT 28 

: GCURSOR V+l 

: GPRINT 8 
45 NEXT I 
50 WAIT 

: CURSOR 

: PRINT "" 
55 FOR 1=1 TO 10 

.-GOSUB 180 

:GOTO 55+X 
60 PRINT INT (U*60+l);" min til ";E$(D 
65 NEXT I 

: PRINT "THATS ALL FOR NOW!" 

: STOP 
70 REM SET UP SCHEDULE 
75 CLEAR 

:DIM H(10),E$(10) 

:K=1 

:LPRINT "SCHEDULE" 

:LF 1 
80 INPUT "HR.MN(P) ";U$ 

:H(K)=DEG VAL U$ 
85 IF RIGHT$ (U$ , 1 )="P"AND H(K)<12 LET 

H(K)=H(K)+12 
90 INPUT "EVENT?";E$(K) 
95 LPRINT "#";K;" ";U$;" ";E$(K) 

:K=K+1 

:GOTO 80 
100 REM LOOK UP TIME 
105 E=TIME /100 

:FOR 1=2 TO 4 
110 @(I)=INT E 

:E=(E-@(I))*100 

:NEXT I 
115 H=C+D/60+E/3600 

:GOSUB 150 

: RETURN 
150 REM H<24, C<13, AM/PM 
155 IF H>24 LET H=H-24 
160 A$= M P" 

. :IF H<12 LET A$="A" 
165 IF C>=13 LET C=C-12 

:GOTO 165 
170 RETURN 



185 
200 
205 



210 



220 



225 

230 



320 



U=H(I)-H 

:X=5 

:IF U>1 OR U<0 LET X=10 
RETURN 

REM TIME IN OTHER CITIES 
GOSUB 100 

:WAIT 

: PRINT "At " 
CURSOR 12 

PRINT :"The Time is" 
CURSOR 5 
INPUT L$ 
RESTORE 

:FOR 1+1 TO 6 

:READ J$,DL 

:IF LEFT$ (L$,2)=LEFT$ (J$,2) LET H=H+DL 

:C=C+DL 

:GOSUB 150 

:GOTO 230 
NEXT I 
CLS 

:WAIT 

:PRINT C;" hrs ";D;" min ";A$;"M ";J$ 

:GOTO 200 

DATA"LONDON" , 8 , "BONN" ,9 , "NY" , 3 , "CHICAGO" . 
2 , "LA" , , "PAGO-PAGO" , 2 1 
END 




George Yefchak 
4112 Silver Oak St. 
Dayton, OH 45424 



I have been very happy with EDTASM + , the Color 
Computer Editor-Assembler (Stock Number 26-3250). I 
bought one of the first ones available in my area. There is an 
error in the manual on page 26. In the section on passing 
parameters to and from assembly routines, the method 
shown for calling the floating-point routines INTCNV and 
GIVABF is wrong. The starting addresses of these routines 
are not STORED IN SB3ED and $B4F4; they ARE $B3ED 
and $B4F4, respectively. In other words, these two routines 
should be called with direct addressing, not indirect address- 
ing. Note that the other ROM routines listed in the manual 
(JOYIN, CHROUT etc.) are to be called indirectly as the 
manual indicates. 

One more note. Although INTCNV must be called with 
either the JSR or LBSR instructions, as the manual says, 
GIVABF can be called with the simpler JMP or LBRA instruc- 
tions. It will then return directly to BASIC. I suspect that JMP 
would be the most efficient. 
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The following information was excerpted from THE 
LDOS QUARTERLY Volume 1, Number 2, October 1, 1981 
with permission from Logical Systems, Incorporated. 

BACKUP-BY-CLASS 

The Backup-by-class feature of LDOS is a very powerful 
feature, but it is also very complex internally. There are a 
couple of things that are done when SYSO is moved to the 
destination disk by a Backup-by-class that are not readily 
apparent. 

SYSO is the heart of LDOS. It can also be referred to as 
the resident system. It is like a traffic control system for the 
entire operation of LDOS. When it is moved, certain other 
sectors of the source disk are also placed on the destination 
disk. These are sectors 2, 3, and 4 of track 0. 

One reason these sectors are moved is that they contain 
special information storage used by the system, sectors 
and 1 are not moved to assure that the proper type of boot will 
be on the destination disk. Another reason to move these 
(sectors 2 - 4) is that the state of the SYSTEM (SYSGEN), On or 
Off, is stored within them. So, if the source disk is sysgened 
then the destination will also be, and if the source disk is not 
sysgened, the destination disk will NOT be sysgened, even if 
it was before the backup began. 

This is a good time to mention the use of JCL to configure 
your system. Because you have to type in all the setup you 
desire for your system, why not type it into a JCL file so that it 
can be reused!! To do this, refer to BUILD in your LDOS 
manual (a suggested name for the file would be SYSGEN/ 
JCL). After you have entered the statement to turn on or set 
up the features and options you want, simpy execute the JCL 
file with the LDOS DO command. This will execute all the 
statements you typed in as though you were entering them as 
commands from the keyboard. When the DO is completed, 
type SYSTEM (SYSGEN) and the present setup will be saved 
on drive as that system disk's configuration. Do not place 
"SYSTEM (SYSGEN)" in the JCL file! 

CREATING A MINIMUM CONFIGURATION DISK 

All files except certain /SYS files may be removed from 
your run time drive disk. 

For operation, SYS files 1, 2, 3, 4, 8, and 10 should 
remain on drive 0. SYS 1 1 must be present only if any JCL 
files will be used. Both libraries (SYS 6 and SYS 7) may be 
removed if no library command will be used. SYS 5 and SYS 9 
may be removed if the system DEBUGger is not used. SYS' 
may be removed from any disk not used for BOOTing. 

When using LBASIC,' BASIC/OVN and /OVX may be 
removed if no renumbering or cross-referencing will be done. 

The presence of any Utility, Driver, or Filter program is 
totally dependent upon the user's individual needs. Most of 
the LDOS features can be saved in a configuration file with 
the SYSTEM (SYSGEN) command, so the Driver and Filter 
programs won't be needed in run time applications. 



The passwords for LDOS files are as follows: 



System files (/SYS) 
Filter files (/FLT) 
Driver files (/DVR) 
Utility files (/FLT) 
LBASIC 

BASIC overlays(/OV$) 
CONFIG/SYS 
MASTER PASSWORD 



Update Password 
Update Password 
Update Password 
Update Password 
Update Password 
Update Password 
Update Password 
= RS0LT0FF 



WOLVES 

GSLTD 

GSLTD 

RRW3 

BASIC 

BASIC 

CCC 



ITEMS OF GENERAL INTEREST 

Model III owners wishing to move programs from LDOS 
to Model III TRSDOS should put the files on a 35 track, single 
density diskette and then use the Model III TRSDOS Convert 
command to move the files. Be sure the disk is formatted for 
35 tracks, as the TRSDOS Convert expects the directory to 
be on track 17. 

We have found that many direct connect modems need 
to have the DTR (Data Terminal Ready) line high before the 
modem will remain off hook. Therefore, when using one of 
the LDOS RS-232 driver programs, it may be necessary to 
specify (DTR) as a parameter when setting the RS-232 driver.,. 



FEATURES OF LDOS 5.1 

• Any LDOS command which requires parentheses around 
the parameters may be entered without the closing 
parenthesis. 

• The ATTRIB command includes the functions of PROT 

• The COPY command contains an (X) parameter to allow 
the transferring of files when dealing with non-system disk- 
ettes. COPY also contains the ECHO parameter to echo 
characters to the screen during the copy. 

• The CONV command will allow you to transfer files created 
on the Model III under TRSDOS 1.2 or 1.3 to an LDOS 
diskette. Note that Model I owners who wish to utilize 
CONV must have two drives and be capable of reading 
double density with their system. 

• The Job Log (*JL) is established via the SET command. 

• The Keyboard driver (*KI) activates the use of the 
(CLEAR) key and must be established if advanced key- 
board features are to be utilized (KSM, MiniDOS, etc.). In 
addition, the type/ahead and screen print functions are 
enabled using the Keyboard driver. 

• A Supervisory Call (SVC) table can be loaded into high 
memory for use by assembly language programmers. It 
contains most documented system entry points and 
routines. 

• The MiniDOS filter allows the keyboard driver to intercept 
certain keyboard inputs and immediately act on them. Mini- 
DOS commands are issued by depressing (CLEAR >^ 
(SHIFT) and an alphabetic key. JI 
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lodel II 



Mod 



by Robert Graham 




This program is a modification of the Twinkling Christmas 
Tree program listed in the December 1981 Microcomputer 
News . Now everyone with a Model II can enjoy the fun. The 
size of the tree has been expanded from 1 lines to 1 5 lines. 

Instead of PEEK-ing into memory to see what was dis- 
played at a given location, it uses the variable T(Y) to keep 
track of what was last printed there. And instead of POKE-ing 
something into display memory, the program uses the 
PRINT® command in the graphics mode. Also pressing "Q" 
during the operation returns you to TRSDOS READY. 

10 DIM S(225) 

:DIM T(225) 

:CLS 

:X=-3 
20 FOR L=l TO 15 

:X=X+2 
30 FOR W=40+(80*L)-((X/2)+.5) TO 40+(80*L)+((X/2)+ .5) 
40 PRINT@W,CHR$(42) 

:Y=Y+1 

:S(Y)=W 

:T(Y)=1 
50 NEXT W 

:NEXT L 
60 X=-l 

:FOR Y = 1318 TO 1322 
70 PRINT@Y,CHR$(158) 

:NEXT Y 
80 PRINT<ai466, "MERRY CHRISTMAS" 
90 Y=RND(224)+1 

:PRINTCHR$(02) 
100 IF T(Y)=1 THEN PRINTS S(Y) ,CHR$(43) 

:T(Y)=-1 

:GOTO110 
105 PRINT@S(Y) ,CHR(42) 

:T(Y)=1 
110 X=X*-1 

:IF X=l THEN PRINT@S( 1 ) ,CHR$(42)ELSE PRINT@ 

S(1),CHR$(43) 
120 B$=INKEY$ 

:IF B$="Q" THEN SYSTEM ELSE 90 



Model , 
Errors, 



and Fixes 



NOTE TO USERS: 

The following program changes and corrections are 
provided for your information. If you have an applications 
program which is working correctly, you should probably 
NOT make any changes to it. If you feel that the changes 
.should be made, but you do not feel qualified to make the 
•changes yourself, please contact your local Radio Shack 
Computer Center or Expanded Computer Department for 
assistance. If you do not have access to one of these stores, 



then you may want to call Computer Customer Services in 
Fort Worth for assistance. 

PATCHES 

PATCHes are entered from TRSDOS READY and are 
used to make corrections to files stored on the disk. 

1. Before making a PATCH, back up the diskette that 
requires modification and make the PATCHES to the 
backup copy of the diskette. 

2. Apply PATCHES according to the information given in 
your TRSDOS manual. 

MODEL 11/16 TRSDOS (26-4150) Version 4.1 

These patches are used to permanently change the 
operation of the TERMINAL program to use channel B in 
place of channel A. Do not apply these patches unless you 
have a special situation which requires the use of channel B 
only. Please note that a serial printer (which also uses channel 
B) may not be used concurrently with TERMINAL once these 
patches are applied. 



PATCH 


TERMINAL 


<R=5 


B=17 2 


F=3E61 


C=3E63> 


PATCH 


TERMINAL 


{R=5 


B=248 


F=3E60 


C=3E62} 


PATCH 


TERMINAL 


{R=6 


B=164 


F=3E64 


C=3E65> 


PATCH 


TERMINAL 


<R=6 


B=17 3 


F=3E64 


C=3E65> 


PATCH 


TERMINAL 


{R=6 


B=183 


F=3E64 


C=3E65> 


PATCH 


TERMINAL 


{R=6 


B=19 3 


F=3E61 


C=3E63} 


PATCH 


TERMINAL 


{R=6 


B=251 


F=3E60 


C=3E62> 


PATCH 


TERMINAL 


<R=8 


B=37 


F=3E60 


>3E62> 


PATCH 


TERMINAL 


<R=8 


B=86 


F=3E60 


3=3E62} 



When an "INIT dr#" is performed on a floppy disk drive, 
not all records from the previously inserted diskette are 
cleared from the system. This problem will manifest itself 
when a "DIR" is done on one diskette containing two to eight 
files and then an "INIT" is done followed by the insertion of 
another diskette into the drive. A "DIR" on the new diskette 
will now show not only its files, but also some files from the first 
diskette. 

The following "PATCH" sequence will remedy this 
situation. 



PATCH 


SYSRES/SYS 


{R=15 


B=88 F=203BC5 OC52039 > 


PATCH 


SYSRES/SYS 


{R=15 


B=99 F=29 C=2A} 


PATCH 


SYSRES/SYS 


<R=15 


B=108 F=0911980E 
C=03C3981D} 


PATCH 


SYSRES/SYS 


{R=30 


B=37 F=0000000000000000 
C=D511980EEDA0EDA8} 


PATCH 


SYSRES/SYS 


<R=30 


B=45 F=00000000000000 
C=4E23462BC37A0E} 


PATCH 


SYSRES/SYS 


<R=15 


B=116 F=1814EDA0EDA8 
C=4E23462BD500} 


PATCH 


SYSRES/SYS 


{R=15 


B=141 F=E5 C=D1} 


PATCH 


SYSRES/SYS 


<R=15 


B=145 F=36FFE1 C=C3A71D> 


PATCH 


SYSRES/SYS 


<R=30 


B=52 F=00000000000000 
C=36FF6069C38A0E> 


PATCH 


SYSRES/SYS 


{R=15 


B=148 F=C1545D7E23666F 
C=545D7E23666FC1} 
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PAYROLL (26-4503) 

The following is a new ADDENDUM FOR PAYROLL 
26-4503 - CONVERTING PAYROLL TO 2.0a 

Conversion of prior versions of Payroll to the 2.0a operat- 
ing system requires a Multi-drive system. Make a Backup of 
this disk prior to converting. 

Follow this procedure for converting your older version 
diskette only after completing your accounting cycle. 

1. Reset the computer and insert the old version of 
Payroll. Use this version to make at least one Backup 
of the disk. Keep this Backup in a safe place until the 
conversion is complete and confirmed by use. This is 
very important! 

2. Reset the computer and insert a Backup of the new 
2.0a Payroll disk in Drive 0. Insert the old Payroll disk 
in Drive 1 . 

3. Type in the command: 
XFERSYS :1 DATA (ENTER) 
The screen will show: 

TRS-80 Model II XFERSYS Utility Ver 2,0 

Mount DESTINATION diskette in Drive 1 

Press ANY key to continue 

Now press any key. 

The screen will then show: 

Phase 1 now starting 

XFERSYS will purge the disk in Drive 1 of all system 

files, leaving only the Payroll programs and data. 

4. At TRSDOS READY, type in the command: 
COPY PR4X:1 TO PR4X:0 (ENTER) 

You will see the message: 
Existing file. Copy over it (Y/Q) 
Press (Y> (ENTER) in response. 

5. AT TRSDOS READY, type in the command: 
MOVE */DAT:1 TO :0 (ENTER) 

This will move the data files from your old diskette to 

the new diskette. 

The screen will show: 

SOURCE disk ready? 

Press (Y> (ENTER) 

To the right of the data file names displayed on the 

screen, you will see the message: 

Existing file. Copy over it? (Y/Q) 

Answer (Y> to PR4CO/DAT 

(N> to PR4COID/DAT This is VERY 
IMPORTANT 

(Y> to PR4EMPLE/DAT 

(Y> to PR4EARN/DAT 

6. If there have been no error warning messages dis- 
played during the conversion, you can now enter the 
following data as necessary; 

—Choose option 1 from the Company Setup menu; 
then choose number 1, Company Name; enter 
your company information and the State U.C. code 
(if applicable). 

— From the Company Setup menu, choose option 6, 
Other Rates and Limits, and enter the basis of sup- 
plemental benefits. 

— Reenter the State Tax Tables (if applicable). 

It is recommended that you make a Backup of the new 
Payroll disk and store your original converted version in a 
safe place. 

Your Payroll on TRSDOS 2.0a is now ready to be used. 



PROFILE II (26-4512) Version 1.0 

This program requires modifications as described below 
before it can be FCOPYed for hard disk use. 

At TRSDOS READY, apply the following patches to cor- 
rect the above problem. 

PATCH CREATE/EFC A=51AE F=34 C=38 

BEDIT (26-4705) with TRSDOS 4.1 

BEDIT does not properly store source files when running 
under Model II TRSDOS 4.1. The result is garbled source 
files. 

Make the following PATCH to BEDIT: 



PATCH BEDIT <A=4184 F=3E30CF C= 



This patch is required for running under TRSDOS 4.1 . It 
is not required for TRSDOS 2.0 or 4.0. It should not be done 
on TRSDOS 1.2. 

BISYNC (26-4715) 

The PATCH printed in the September 1982 
Microcomputer News on page 38 is not valid. Version 3.4 of 
the BISYNC 3270 package solved the problem. The 3.4 
version is now in the process of being released and will be 
available as an upgrade, at no extra cost. -Q 



icrocomputers in 



Forward to the 3 C's 

Communicating, Calculating, and Computing 

The College of Education at Arizona State University is 
hosting the 3rd Annual Microcomputers in Education Confer- 
ence emphasizing the potential of computers to revolutionize 
the learning process; computers are changing the nature of 
content in all subject areas, the nature of teaching, and the 
nature of what it means to be well-educated. A variety of 
workshops, demonstrations and presentations are designed 
for anyone interested in creative, innovative microcomputer 
applications in education. 

This two and a half day conference will be held on the 
Arizona State University campus on March 17-19, 1983. 
University credit will be available. 

A call for conference presenters is extended. Individuals 
who wish to make a presentation at the 1983 conference 
should write or call for a proposal form as soon as possible. 

Vendors interested in securing a booth are invited to 
contact the Conference Co-Director. Since exhibit space is 
limited, reservations will.be made on a first come first served 
basis. 

For further information or registration materials write or 
phone: 

Marilyn Sue Ford 

B-47 Payne Hall, College- of Education 
Arizona State University 
Tempe, Arizona 85287 
(602) 965-7363 Or 965-3322 *£S 



32 



TRS-80 Microcomputer News, December 1982 



Education 



Chemistry Simulations for 
Secondary Students 



A new Radio Shack courseware program lets secondary 
students use the TRS-80 computer to simulate chemistry 
experiments, TRS-80 Chemistry Lab, Volume I is now avail- 
able for the Model III or Model I 32K disk system or 1 6K tape 
system, or for the 1 6K Color Computer tape system. TRS-80 
Chemistry Lab, Volume I supplements classroom instruction 
for secondary and college chemistry classes. Six different 
computer programs are included to allow for simulations in 
six different topics: Kinetic Theory, Charles' Law, Boyle's 
Law, Conductivity, Solubility, and Titration. 

The program design allows students to repeat and vary 
the simulations many different times, collecting different data 
each time. For example, the Kinetic Theory, Charles' Law, 
and Boyle's Law programs let the student choose the vol- 
ume, and the pressure(s) or temperature(s) of gas for which 
data will be collected. Thus, numerous different experiments 
can be performed. Programs are based on equations de- 
rived from actual laboratory experiments. 

Both the Model III/I version and the Color Computer 
version of TRS-80 Chemistry Lab, Volume I, lead the student 
through simulations with helpful on-screen explanations. Not 
only experimental results, but also correct experimental pro- 
cedures are realistically simulated. Extensive use of graphics 
provides a realistic representation of each experiment. For 
example, the Solubility program shows the student what 
occurs when you add solute to a solution before the solution 
has become saturated: 



£*!■•$" v 






PjCifVfi-f' 



on the bottom of the beaker rather than dissolving: 



iiMtimmummfi 



If the student continues to add solute once the solution 
has become saturated, the screen shows the solute piling up 




These simulations are not intended to replace experi- 
ence in a real laboratory, but they do provide an easy, safe 
way for students to see the results of an experiment again and 
again, and to collect, graph, and analyze the data produced 
by these experiments, with the aid of the computer. The 
Titration program provides a good example of how the simu- 
lations reinforce correct experimental procedures. The 
Titration simulation leads the student through several steps to 
collect and refine the data that he or she needs. First, the 
student chooses a base solution and then chooses the quan- 
tity of unknown acid solution to work with: 
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Then the beaker is filled, and the student fills the beret: 



PKfWt <CMTEH> 

i: fjR/N5rfiiir:Ti[iNn 




Radio Shack's TRS-80 Chemistry Lab, Volume I, is avail- 
able at Radio Shack stores and Computer Centers. The Color 
Computer version of the program (Cat. No. 26-2626) can bo- 
used with a 1 6K Color Computer tape system with Extendec 
Color BASIC. The Model III/I version (Cat. No. 26-2609) is" 
designed for use with the Model III or Model I 32K disk 
system or 1 6K tape system. This Model III/I version includes 
a Model III diskette and a 1500 Baud cassette tape for use 
with the Model III tape system. Replacement software for 
Model I users can be obtained FREE from Radio Shack. (The 
teacher's manual for the package tells you how.) The sug- 
gested retail price of either package (26-2609 or 26-2626) is 
$199.00. (Prices may vary at individual stores and dealers.) 

TRS-80 Chemistry Lab, Volume I, is the first of several 
simulation programs to be released by Radio Shack. A sec- 
ond volume of chemistry simulations and two volumes of 
physics simulations are to follow. -D 



Then the student uses the down-arrow key to add drops 
of the base to the acid. When the solution has been titrated, it 
changes colors— -just as it would in a real experiment if litmus 
dye were used: 



Reprints Are Now 
Available 



VHVWi •! 




The computer has kept track of the data for the titration. 
The student then records data from the computer screen 
onto a worksheet (provided in the student experiment book 
that accompanies the program), and then presses (ENTER > 
to continue. The next screen presents the student with the 
equation used to calculate the molarity of acid for this titration. 
The student fills in the appropriate amounts from the data 
worksheet and solves for the molarity of the acid. 

TRS-80 Chemistry Lab, Volume I includes an instructor 
manual and twenty-five student experiment books. The stu- 
dent experiment books include background information and 
experimental procedures for each topic, a short summary 
quiz over the background information, data worksheets for 
recording the results of the experiments, and a set of ques- 
tions over the data acquired in each topic. Step-by-step in- 
structions for using the program on the TRS-80 computer are 
also included. The teacher's manual includes all of this infor- 
mation, plus instructional objectives for each topic, answers 
to the summary quizzes and final questions, and suggestions 
for areas of emphasis and methods of presentation. 



The 1 981 reprint set (Catalog No. 26-2240, $9.95) is now 
available. This second set includes all 1981 issues of the 
TRS-80 Microcomputer News plus the 1981 index. "Stop 
That Out-of-Sorts Feeling", a two dimensional machine lan- 
guage sort for the Models I/II, and "Printer Codes— the 
Inside Story" are only two of the many useful and informative 
articles in the 1981 Reprints. 

The response to the first TRS-80 Microcomputer News , 
Reprints (Catalog No. 26-21 1 5, $4.95) has been even better 
than expected. For those who may not be familiar with it, this 
set of reprints includes all issues o f TRS-80 Microcomputer 
News from the first-ever-issue through December 1980. 

While a reprint of the 1 982 TRS-80 Microcomputer News 
is planned, it will not be available until late summer or early fall 
of 1983. 
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VisICaSc/SATN 




rsonal Time Sav 




OOPS!!! 

Calls from frustrated readers regarding the September 
VisiCalc Personal Time Savers column have resulted in this 
follow up article. The ideas presented are in fact valid, but 
there is additional information which was not included in the 
previous article. We apologize for any time loss or confusion 
that may have resulted from this oversight. 

THE GENERAL IDEA IS . . . 

Keyboard commands like /IR, >A5, /F$, and formulas 
like + A5 + A6 can be entered into a VisiCalc sheet as labels 
by using the preceding " (quote mark), stored in Print File 
format, and read back into another VisiCalc sheet as a com- 
mand file. While immediate applications for this capability 
may not spring to mind, playing around with the examples a 
little may give you additional insight into several practical 
applications of this capability. 

STORING COMMANDS AND FORMULAS IN A VISICALC 
PRF FILE 

The coordinates, which are entered into the VisiCalc 
sheet as labels by using a quotation mark ("), indicate the 
coordinate where the values (1 0) or formula ( + A5 + A6) will 
actually be stored when the file is loaded back into another 
VisiCalc screen. The first example is a sample command file 
which stores the value 10 at coordinates A5 and A6 and the 
formula +A5 + A6 at coordinate A7. The following key- 
strokes setup A5, the first screen coordinate of the file, and 
the value to be stored at that position. 

">A5:10 <ENTER> 

The " is for a label; > A5 indicates that the formula or value 
will be stored at coordinate A5; the : must follow the coordi- 



nate in this format or this procedure will not work; and 1 0, in 
this example, is the value that is stored at A5. 

A value or command may be stored at the coordinate by 
entering it: 

1. Right after the colon (A5:10) 

2. In the next coordinate position. 

For example, the format /F$ can be stored at coordinate 
A1 by typing ">A1:/F$ or by typing ">A1: at coordinate A1 
and 7F$ at coordinate A2. 

To create the first file, enter the information shown in 
Screen 1 . Be sure that all commands, labels, or formulas are 
entered as labels. Numeric items entered in a cell by them- 
selves are entered as numbers, not labels. 

SAVING THE FILE TO DISK 

When all the information is entered, move the cursor to 
coordinate A1 and then save the file to disk by typing: 

/PF filename/ext <ENTER> 

Notice that the file is not being saved by the standard /SS 
procedure. /PF saves the file in a special format that enables it 
to be read back as a command file, "filename" is the name 
you assign to the file. For demonstration purposes, the 
filename will be ADD. The extension (/ext) is optional, but if an 
extension is not used, VisiCalc will add a /PRF extension to 
the filename. When the file is reloaded into VisiCalc, the 
extension will have to be included in the filename. Instructions 
for saving and reloading the ADD file are: 

LSave it to disk by /PF ADD (ENTER) 

2. Clear the screen - /CY 

3. Reload ADD with /SL ADD/PRF (ENTER) 
The result is Screen 2. 





Screen 1 



Screen 2 
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You should also be aware that /PF stores only what 
appears on the VisiCalc screen. Therefore, the column 
should be wide enough to display the entire formula. 

A NOTE ON COMMAND FILE SEQUENCING 

VisiCalc reads commands from left to right just as you are 
reading this text. So you could write the commands at A1 , B1 , 
C1 , . . . , and then the next set of commands could start at 
A2, B2, C2, .... It is also possible to write the commands 
vertically-— the first command at A1 , the second command at 
A2, the third at A3 and so on, but a word of caution is needed. 
Since VisiCalc reads the file from left to right, there would be 
problems if the command file were written beginning at A1 for 
the first command, A2 for the second command, A3 for the 
third command, and then B1 for the fourth command, B2 for 
the fifth command, B3 for the sixth command, because 
VisiCalc would read them A1, B1, A2, B2, A3, B3 which 
would not be the intended order. While it is possible to have 
multiple rows of commands read in a left to right direction, it is 
not possible to write them in multiple columns. 

MULTIPLE ROW AND COLUMN INSERTS 

The September command file which inserted multiple 
rows worked just as it was given. This example will discuss 
inserting multiple columns. Try creating a command file like 
the one shown in Screen 3. 




Screen 3 

When stored with the /PF format and reloaded into a 
VisiCalc screen, this file will insert three columns beginning at 
the present cursor position. When creating the file remember 
to enter each /IC instruction as a label. The completed screen 
appears as Screen 3. Move the cursor to coordinate A1 , and 
save the file in the /PF format as INS3COL. 

For a demonstration of the effect of INS3COL when it is 
loaded into a VisiCalc screen, first look at Screen 4 which 
contains several columns of numbers. 

Three columns between the B and C columns are 
inserted by placing the cursor on column C and loading 




Screen 4 

INS3COL/PRF. The result is Screen 5. 




Screen 5 

A DECIMAL NUMBER MATRIX COMMAND FILE 




Screen 6 



(Continued on Page 38) 
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Modem II Programming 
Techniques 



Peripherals 



To correctly program the Modem II, you must follow 
certain conventions. First, initialize the RS-232C port. The 
Modem II/RS-232C protocol is 300 baud, 8 bit words, no 
parity, and 1 stop bit. Set these prior to programming the 
Modem. For example, on the Model II, you might initialize by 
typing (from TRSDOS READY): 



Program 
*DFDR5552234X 



SETCOM A=C 



,8,N,1) <ENTER> 



Set the Modem II switches to AUTO, ORIG, and TEST 
OFF. Now turn the Modem II POWER switch to ON. Notice 
that the RD indicator light is on, and remains on for about six 
seconds. When the RD light goes off, the TR indicator light 
should turn on. You MUST wait until the TR light is on before 
trying to program the Modem II! Once the TR light comes on, 
send an "*" to the modem. The TR light should turn off. If it 
doesn't, keep sending "*"s. 

If the TR light fails to turn on, you might have a problem in 
the connections or have the protocol set incorrectly. 

Once the TR light is off, you may begin programming the 
modem. Programming normally involves the following: 

1 . Send a "D" to clear the modem's program memory 
This only clears the number—dialing speed and style 
remain at their default values of Slow Rotary. 

2. If you are using rotary dialing, next send out the 
dialing speed, either "F" for fast, or a "S" for slow. 
Follow this bya"D", so that you can enter the phone 
number. 

3. Now send the dialing style, either an "R" for rotary or 
a "T" for tone. 

4. Enter the phone number. Valid characters include 
numbers and the letter "P" (for pause). Note: Do NOT 
enter hyphens, spaces, or parentheses! If you make 
a mistake, send a "D" to erase the old number and 
start over at Step 3. 

5. When you are ready to place the call, send an "X". 
Once the modem has dialed the number, it waits on 
the other party to answer. If there is no answer after 
three rings, the modem disconnects, and the TR light 
comes on. To re-try the number, send an "*" and 
an "X". 

Note: While entering the data into the modem, you must 
wait for the modem to correctly echo the last character sent 
BEFORE sending the next character. If the modem's echo 
doesn't match the character you sent, then a problem exists. 
Check your connections, the protocol, etc. 

SAMPLE MODEM II PROGRAMS 

Here are some examples of programs for the Modem II 
along with their interpretations. We'll assume that you are 
using a "terminal" program to send these to the modem. 



*DT9P5551231X 



Interpretation 

Select fast rotary dialing, then 

dial the number 555-2234. 

Select tone dialing, dial 9 then 

pause for two seconds, and then 

dial 555-1231. 

*DT9PPP1P8175559876X Select tone dialing, dial 9 and 

pause for six seconds, dial one 
and pause for two seconds, then 
dial the number (81 7) 555-9876. 

*DSDR2851X Select slow rotary dialing and 

dial the number 2851. 

*D2851 X Select slow rotary (as the default 

on Power up) and dial the num- 
ber 2851. 




SAMPLE DRIVER FOR AUTOMATIC DIALING 

Here is an example of a driver program which sends 
a program to a modem. It is written for a Model II. To modi- 
fy it for use on a Model III, simply remove the DEFUSR 
statements and replace the USRO statements with OUT 
&HEB, SND% and the USR1 statements with 
ECHO°/o = INP(&HEB). 

(Note: Naturally, you would want to use this in conjunc- 
tion with a communications package. The following shows 
merely how to program the modem, and nothing about what 
to do once the communications are set up.) 

10 'Sample Modem II Auto Dial Program written in 

Model II BASIC 
20 ' 
30 ' Note: Use Channel A to run the program. 

First initialize this channel with the 
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-M:HEF50 

'OUTP Routine 
1 INP Routine 



40 ' TRSDOS command SETCOM A=(30 , 8 , N, 1 ) . Load the 

50 ' OUTP and INP routines, and then load BASIC 

60 ' with the command BASIC 

70 ' 

80 DEFUSR0 = &HEF50 

90 DEFUSR1 = &HEF54 

100 ' 

110 ' Get the phone number data 

120 ' 

130 LINE INPUT "Enter Phone Number: ";PH$ 

140 INPUT "Enter Dialing Style (<R>otary or 

<T>one): ";STYLE$ 
150 IF STYLE$ = "R" THEN INPUT "Enter Dialing 

Speed (<F>ast or <S>low) : ";SPEED$ ELSE 

SPEED$="" 
160 PGM$ = "D" + SPE£D$ + "D" + STYLE$ + PH$ 
170 ' 
180 'Enter the program mode of the Model II by 

sending an "*" 
190 ' 

200 TRIES = 
210 SND% = CINT(ASC("*")) 
220 X% = USR0(SND%) 
230 FOR I = 1 TO 50 

: NEXT I 
240 ECHO% = USRK0) 
250 TRIES = TRIES + 1 

260 IF ECHO% <> SND% AND TRIES < 3 THEN 210 
270 IF TRIES = 3 THEN PRINT "Can't program the 

Modem! " 

: STOP 
280 ' 
290 ' Send the phone number data string (i.e., 

the Modem II program) 
300 ' 

310 FOR I = 1 TO LEN(PGM$) 
320 SND% = CINT(ASC(MID$(PGM$,I,1))) 
330 X% = USR0(SND%) 
340 FOR N = 1 TO 50 

: NEXT N 
350 ECHO% = USRK0) 
360 IF SND% <> ECHO% THEN PRINT "Can't program 

the Modem!" 

: STOP 
370 NEXT I 
380 ' 
390 ' Get the time for the number to be dialed 

and wait for the dialing time 
400 ' (DT$) to equal the system time (TIME$). 

When equal, send a "X" to instruct the 
410 ' Modem II to dial the number. 
420 ' 
430 INPUT"Modem Programmed. Enter Time to Dial 

Number (HH.MM.SS)"; DT$ 
440 IF DT$ <> TIME$ THEN 440 
450 SND% = CINT(ASC("X")) 
460 X%< = USR0(SND%) 
470 FOR I = 1 TO 50 

: NEXT I 
480 ECHO% = USR1(0) 
490 IF SND% = ECHO% THEN PRINT "Number Dialed!' 

ELSE PRINT "Number NOT Dialed!" 
500 PRINT "Number Dialed!" 



OUTP: 


LD 




OUT 




RET 


INP: 


IN 




LD 




RET 


' 


END 



A,(HL) ;Get character from BASIC 

program 
(PORTA) , A ;Send character out Channel 

A 
;Return to BASIC 

A, (PORTA) ;Send character from Channel 

A port 
(HL),A ;Return character to BASIC 
(HL -> character) 
; Return to BASIC 

OUTP Js& 



Personal Time Savers 



(From Page 36) 



This command file presets the value format to a dollar 
format for all numbers that will be entered in the following 
matrix positions: A5, B5, C5, A6, B6, C6, A7, B7, C7. The 
setup of this file would appear as Screen 6. 

After saving this file in the /PF format, clearing the screen, 
and loading it back in, numbers entered in the matrix 
bounded by A5 - A7 and C5 - C7 will be displayed as decimal 
numbers as in Screen 7. 




Screen 7 

TIME SAVERS 

These procedures can be true time savers by allowing 
you to eliminate repetitive entries by entering them once, 
saving the file, and reloading them into another file when 
needed. JH 



OUT/INP SUBROUTINES 

Use these routines to input and output characters via the 
RS232-C Channel A port. On entry to OUTP, HL points to the 
character to be sent. On entry to INP, HL points to the address 
that is to receive the character. This is consistent with Model II 
BASIC'S method of parameter passing. 



PORTA 



EQU 0F4H 
PSECT 0EF50H 



;Channel A Data Port=0F4H 
;Routines must reside in 
high memory 
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Color Computer 



Christmas Eve 



Todd Day 

6702 Mt. Pakron Dr. 

San Jose, CA 95120 



Here is a program that I thought you might enjoy for the 
holidays. It draws a nice Christmas Eve scene complete with 
a Christmas tree with a blinking star, lights, and a warm, cozy 
fire. This program requires 16K and Extended BASIC. Since 
this program uses up almost all of the available memory, it 
cannot be run while a disk system is connected. 

One programming technique I have found useful in mak- 
ing graphics programs is to stick this line in the last part of 
your program: 

H = JOYSTK(0) * 4 
V = JOYSTK(l) * 3 
PS£T(H, V) 
GOTO 9000 

This allows you to see all of your graphics and move the 
dot from the joystick around. When you find the spot you 
need, you can "break" the program, and by printing the 
values of H and V you can find the required coordinates. 

CHRISTMAS EVE PROGRAM 

Line 10 Reserves space for graphics and sets up the 

screen. L and L1 are the coordinates for the 

lights on the tree. 
Line 1 5 Draws the walls. 
Line 20 Paints the floor and starts drawing the fireplace 

mantle. 
Line 25 Finishes the bricks and makes the fireplace 

hole. 
Line 30 Draws the rug. 
Line 35 Paints the right wall blue and draws the 

window. 
Line 40 Paints the left wall blue, makes the picture 

frame and draws the Christmas tree. 
Line 45 Draws the wreath and tree base. 
Line 50 Draws the vases. 
Line 55 Draws the presents and stockings. 
Line 60 Draws the log and star. 
Line 65 Draws "Merry Christmas." 
Line 70 - 90 Blinks the star and lights, flickers the fire, and 

plays "We Wish You a Merry Christmas." 

10 CLEAR 

PCLEAR 8 

PMODE 3,1 

PCLS 2 

SCREEN 1,0 

C0L0R7 

DIM L(16), Ll(16) 

FOR T = TO 16 

READ L(T), L1(T) 

NEXT 
15 LINE(0,20)-(30,30),PSET 

: LIiNE-(255,181),PSET,B 
: LINE -(255,191), PSET 



LINE(0,255) - (30,181), PSET 
LINE(255,20) - (225,30), PSET 
LINE -(30,110), PSET, BF 
LINE(0,20) - (255,19), PSET, I 
PAINT(0,0), 1, 3 

20 PAINT( 245,189), 1,3 
PAINT(33,120), 8, 7 
COLOR 2 

FOR T = 174 TO 117 STEP - 7 
LINE(33,T) - (222, T), PSET 
NEXT 

21 COLOR 7 

22 LINE (30,30) - (225,181), PSET, B 
25 COLOR 2 

FOR r = 111 TO 180 STEP 14 
FOR TT = 40 TO 218 STEP 20 
LINE (TT,T) - (TT,T+7), PSET 



LINE (TT + 15 
PSET 
NEXT 
NEXT 
COLOR 7 

LINE (100,125) - (1( 
3. 



T + 7) - (TT + 10, T + 14) 



30 CIRCLE (132,191), 30 

: PAINT(132,189), 3, 3 
: CIRCLE(132,191), 15, 4, .3, 
: PAINT (132,191), 4, 4 
35 LINE (255,64) - (230,68), PSET 

LINE - (230,116), PSET 

LINE -(255,120), PSET 

PAINT (252,24), 7, 7 

LINE(230,92) - (255,92), PSET 

LINE(243,64) 
40 PAINT (2,27), 3, 

COLOR 4 

LINE (30,30) 

COLOR 4 

LINE (96,45) 

COLOR 2 

LINE (99,48) 

COLOR 1 

LINE (44,57) 

LINE - (88,174), PSET 

LINE - (44,57), PSET 

PAINT (45,60), 1, 1 
45 CIRCLE (130,73), 22, 1 

PAINT (130,73), 1, 1 

CIRCLE (130,73), 13, 2 

PAINT (130,73), 2, 2 

COLOR 4 

LINE (126,87) - ( 137 ,96 

CIRCLE (44,191), 30, 4. 



174), PSET, BF 
3, .5, 



5, 



(243,120), PSET 

(30,100), PSET 
(164,99), PSET, BF 
(162,97), PSET, BF 
(0,174), PSET 



), PSET, BF 



PAINT (44,188 

COLOR 2 

LINE (40,174) 



50 COLOR 5 

LINE U 
LINE - 
LINE - 
LINE - 



), 4, 4 
- (48,187) 



,93) - (82,110) 
(86,110), PSET 
(88,93), PSET 
(80,93), PSET 



PSET, BF 



PSET 



PAINT (82,95), 5, 5 
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LINE (172,93) - (174,110) 
LINE -(173,110), PSET 
LINE - (180,93), PSET 
LINE - (172,93) , PSET 
PAINT (174,95), 5, 5 
COLOR 8 
LINE(222,30) 
55 PAINT (240,87), 6 
COLOR2 

LINE (16,179) 
COLOR 3 
LINE (56,177) 



PSET 



(222,112), PSET 



(30,189), PSEI, BF 



BF 



HEKKY CHRIBTHH5 



PSET, BF 



LINE 


(45,56) - 


LINE 


- (46,52) 


LINE 


- (54,49), 


LINE 


- (46,49) 


LINE 


- (44,43), 


LINE 


- (42,49), 


LINE 


- (35,49) 


LINE 


- (42,52), 


LINE 


- (36,60) 


LINE 


- (45,56) 



i), PSET 



(76,189), PSET, 
DRAW "BM114,123C2D11G2L4G2D2F2R10E4U15L6" 
PAINT (118,126), 2, 2 

DRAW "BM138,123D11G2L4G2D2F2R10E4U15L6" 
PAINT (142,126), 2, 2 
LINE (112,165) - (148,174) 
COLOR 4 

(52 
PSET 
PSET 
PSET 
PSET 
PSEI 
PSET 
PSET 
PSET 
PSET 
65 DRAW "BM62,15U8F2E2D8BR6NR4U4NR2U4R4BR6N 

D8R2F2G2L2F4BR6U8R2F2G2L2F4BR8U4NH4NE4D4BR14U 
8NR4D8R4BR6U4NU4R4NU4D4BR6U8R2F2G2L2F4BR6R2NR 
2U8L2R4BR6NR4D4R404NL4BR8U8L2R4BR6ND8F2E2D3BR 
604NR4U4R4D8BR6R4U4L4U4R4 
70 FOR T = 1 TO 4 

: PCOPY T TO T + 4 
: NEXT 
7 5 PMODE 3,5 

X = X + 1 

IF X > 2 THEN X = 
GOTO 75 

ELSE PAINT (44,51) , X + 1 , 4 
77 Y = Y + 2 

: IF Y > 21 THEN Y = 

: PLAY "T3O2L4GO3CL8C0CO2BL4AAP32AO3DL8DE 

DC02L4BGP32G03EL8EFEDL4C02AP32L8GGL4A03C02BO 

3C 

RND(17) - 1 

CIRCLE (L(R).Ll(R)), 3, RND(3) h 
COLOR 3 

LINE(148,164) - (112,148), PSET, 
ON RND(2) GOSUB 85, 90 
FOR T = 5 TO 8 
PCOPY T TO T - 4 
NEXT 
GOTO 75 
85 COLOR 2 

LINE (148,164) - 
LINE - (130,162) 
LINE - (121,148) 
LINE - (112,164) 
PAINT (120,156), 
RETURN 
90 COLOR 2 

LINE (148,164) - 
LINE - (127,162) 
LINE - (121 ,153) 
LINE - (112,164), PSET 
PAINT (120,156), 4, 2 
RETURN 
95 DATA 44, 66, 48, 83 
56, 105, 56, 120, 
44, 138, 64 
12, 162, 31 



80 R 



1 



BF 



PSET 



(139,152) 

PSET 

PSET 

PSET 
4, 2 



(139,149), PSET 
PSET 



PSET 



, 36 : 

44, 
142, 72, 
153 



87 . 
120 : 
162 



33 : 

24 
52 



102, 44, 102 : 
120, 20, 138 : 
162, 36, 168 




AJ^riX 



Computer Clubs 

Northern Illinois Color Computer Club 
c/o John Bowman, President 
9346 Landings 
Des Plaines, IL 60016 

St. Ignatius Computer Club 

St. Ignatius High School 

c/o Stephan Kinholt 

P. O. Box 400 

St. Ignatius, MT 59865 

We apologize for the error in the September 1982 
Microcomputer News . The listing for the Silicon Valley Com- 
puter Club should have read: 

Silicon Valley Color Computer Club 
P.O. Box 61593 
Sunnyvale, Ca 94088 

There is also a color computer bulletin board for the area 
called: 

Silicon Rainbow Bulletin Board 
408-733-6809 

TRS-80 Users Group of North Utah 
c/o Marcel Kinard 
3106 East 125th North 
Layton, UT 84041 
1-801-544-8970 JH 
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Text Editor Revisited 



Ashok Basargekar 
1423 N. Cleveland St. 
Orange, CA 92667 



The Text Editor 2.2 program published in the July/ 
August 1 982 issue of TRS-80 Micro co mputer News is really a 
great one. The program of course works fine when a Color 
Computer with Extended BASIC is used. It requires quite a bit 
of modification when using Disk Extended Color BASIC. 

Since additional system RAM from address 1536 to 
2440 is reserved for the Disk BASIC, it is necessary to change 
the Assembly Language code and the BASIC program so 
that the Text Editor starts after the reserved RAM for the Disk 
BASIC. 

I feel that the readers having Disk BASIC and a 32K 
Color Computer will find the following modifications to the 
Text Editor very useful while using the program. I have only 
listed the lines that need to be changed and the new lines that 
are required to be added. 

I have deleted the lines from 5000 to 5050 to my pro- 
gram and have used the Assembly Language code as a 
separate Machine Language program called TEXT ML. My 
modifications are as follows: 

10 CLEAR 200, 32500 

: L0ADM "TEXT ML" 
20 CLS 

: INPUT "LINE WIDTH' 
30 INPUT "MARGIN" ;TB 
30 DEFUSR0 = &H7FEB 



LW 



DEFUSR1 = 32719 
DEFUSR2 = &H7FB2 



40 CLS 



"3: 
"4: 
"5: 



COMPOSE" 

EDIT" 

COPY ON PRINTER" 

SAVE TEXT ON DISK" 

LOAD TEXT FROM DISK" 



41 KY$ 



120 
170 



PRINT "1: 

PRINT "2: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "SELECT 1 TO 5" 

= INKEY$ 

: IF KY$="" THEN 41 ELSE IF VAL(KY$) < OR 
VAL(KY$) > 5 THEN 41 
42 ON VAL(KY$) GOTO 100, 210, 550, 4050, 4100 
: GOTO 20 
A = 2560 

IF A$ = """ THEN POKE A, 255 
: LIMIT = A 

: GOTO 20 ELSE IF A$ = CHR$(8) THEN A = A - 
1 
: GOTO 140 

Delete line 180 

210 POKE 65479, 

: POKE 65480, 

: POKE 65483, 
220 A = 2560 
270 IF A$ = CHR$(8) THEN A = A - 1 

: IF A = 2559 THEN A = 2560 
290 IF A$ = """ THEN A = A - 32 

: IF A < 2560 THEN A = 2560 
530 IF A$ = "-" THEN POKE A, 255 

: LIMIT = A 

: GOTO 230 
550 CLS 

: PRINT "TEXT PRINTING ON PRINTER. 

PRINTER ON AND PRESS ENTER." 

: INPUT R$ 



TURN 





: FOR A = 2560 TO 9215 


620 IF LEN(B$) = LW THEN 3050 


640 PRINT* - 2, TAB(TB); B$ 




• B$ = "" 




650 IF Al = 255 THEN 


.IMIT = A 




: GOTO 20. ELSE IF A = 9215 THEN LIMIT = 




GOTO 20 




3000 


IF A > 7679 THEN 
POKE 65481,0 
POKE 6548 3,0 

: POKE 65485,0 
RETURN 


POKE 65479,0 


3001 


IF A > 7167 THEN 
POKE 65481,0 
POKE 65483,0 
POKE 65485,0 
RETURN 


POKE 65478,0 


3002 


IF A > 6655 THEN 
POKE 65480,0 
POKE 6548 3,0 
POKE 65485,0 
RETURN 


POKE 65479, 


3003 


IF A > 6143 THEN 
POKE 65480,0 
POKE 65483,0 
POKE 65485,0 
RETURN 


POKE 65478,0 


3004 


[F A > 5631 THEN 
POKE 65481,0 
POKE 65482,0 
POKE 65485,0 
RETURN 


POKE 65479,0 


3005 


[F A > 5120 THEN 
POKE 65481,0 
POKE 65482,0 
POKE 65485,0 
RETURN 


POKE 65478, 


3006 


LF A > 4607 THEN 
POKE 65480,0 
POKE 65482,0 
POKE 65485,0 
RETURN 


POKE 65479,0 


3007 ] 


[F A > 4095 THEN 
POKE 65480,0 
POKE 65482,0 
POKE 65485,0 
RETURN 


POKE 65478,0 


3010 ] 


LF A > 3583 THEN 
POKE 65481,0 
POKE 65483,0 
POKE 65484,0 
RETURN 


POKE 65479, 


3020 


LF A > 3071 THEN 
POKE 65481,0 
POKE 65483,0 
POKE 65484,0 
RETURN 


POKE 65478,0 


3030 I 


>OKE 65479,0 
POKE 65480,0 
POKE 65483,0 
RETURN 




3050 ] 


-F PEEK(A+1) = 143 THEN 640 


3055 1 


_F PEEK(A+1) = 32 


THEN 640 


3060 1 


-F Al >= 32 AND Al < 48 THEN 640 


3070 ] 


-F Al > 57 AND Al 


< 64 THEN 640 


3080 / 


^ = A - 1 






B$ = LEFT$(B$,LEN(B$)--1) 




Al = PEEK(A) 




3090 ] 


-F Al > AND Al 


< 27 THEN Al = Al + 96 


4000 ] 


-F Al = 143 THEN 


Al = 32 


4010 ] 


-F Al = 255 THEN 


640 


4020 1 


-F Al = 191 THEN 


640 


4030 C 


50 TO 3050 




4050 ( 


:ls 






INPUT "FILE NAME"; F$ 




SAVEM F$, 2560 


LIMIT, 2560 
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: GOTO 20 
4100 CLS 

INPUT "FILE NAME"; F$ 
LOADM F$ 
GOTO 20 

TEXT ML ASSEMBLY LANGUAGE PROGRAM 

SAVEM "TEXT ML ", 32501 , 32767 , 32690 



7FB2 
7FB5 
7FB7 
7FB9 
7FBB 
7FBD 
7FBF 
7FC1 
7FC4 
7FC6 
7FC8 
7FCA 
7 FCC 
7FCE 
7FCF 
7FD2 
7FD4 
7FD6 
7FD8 
7 FDA 
7FDC 
7FDE 
7FE1 
7FE3 
7FE5 
7FE8 
7FEA 
7 FEB 
7 FED 
7FF0 
7FF2 
7FF5 
7FF7 



8E0A00 

A680 

E684 

A780 

1E89 

81FF 

2707 

8C11FF 

2702 

20EF 

E784 

86FF 

A784 

39 

8E0000 

E684 

E782 

A681 

E684 

C1FF 

270A 

8C11FF 

2705 

E782 

7E7FD6 

E782 

39 

C68F 

8E0A00 

E780 

8C0BFF 

26F9 

39 



LDX #A00 
LDA X+ 
LDB X+0 
STA X+ 
EXC A,B 
CMPA #FF 
BEQ 7FC8 
CMPX #11 FF 
BEQ 7FC8 
BRA 7FB7 
STB X+0 
LDA #FF 
STA X+0 
RTS 

LDX #0 
LDB X+0 
STB -X 
LDA X++ 
LDB X+0 
CMPB #FF 
BEQ 7FE8 
CMPX #11FF 
BEQ 7FE8 
STB-X 
JMP 7FD6 
STB -X 
RTS 

LDB #8F 
LDX #A00 
STB X+ 
CMPX #BFF 
BNE 7FF0 
RTS 






PC-1 Twelve Days of 
Christmas 



Robert K. Phelps 
143 Forest Park 
7800 Tayloe Drive 
Manassas, VA 22111 



This program is based on the song "The Twelve Days of 
Christmas." It can be run on a PC-1 as a "fun" program. It can 
also be adapted to other computers. The program takes only 
28 program lines so it is easy to key into memory. After the 
program is loaded, you switch to the DEF mode and press 
<SHFT> (SPACE) to start the run. The program can be 
converted to use the printer, but it is mainly designed to use 
the computer as a stand-alone unit. 

There is a program bug that was left in deliberately. This 
is on line 1 3. The computer will print ON THE ELEVENT DAY. 
The final H is dropped because it exceeds the 7-letter limit for 
string values. This is such a minor problem that it is not worth 
the time and effort to correct the bug. It does not affect the 
running of the program. If you want a program correction, 
then you can drop the E between the V and N on line 13. This 
will change line 13 as follows. 



.13 IF Z=ll LET Y$="ELEVNTH" 

The program is interesting from a technical standpoint 
because it uses IF statements to control PRINT or PAUSE 
commands. If the conditions specified in the IF statement are 
not met, then the PRINT or PAUSE is not executed. This is a 
useful programming trick because it allows you to format 
"error messages" and special messages that will appear only 
under certain conditions. 

1 "XMAS" 

2 " "CLEAR 

: PAUSE "TWELVE DAYS OF CHRISTMAS" 

3 FOR Z=l TO 12 

:IF Z=l LET Y$="FIRST" 

4 IF Z=2 LET Y$="SEC0ND" 

5 IF Z=3 LET Y$="THIRD" 

6 IF Z=4 LET Y$="F0URTH" 

7 IF Z=5 LET Y$="FIFTH" 

8 IF Z=6 LET Y$="SIXTH" 

9 IF Z=7 LET Y$="SEVENTH" 

10 IF Z=8 LET Y$="EIGHT" 

11 IF Z=9 LET Y$="NINTH" 

12 IF Z=10 LET Y$="TENTH" 

13 IF Z=ll LET Y$="ELEVENTH" 

14 IF Z=12 LET Y$="TWELFTH 

15 PAUSE "ON THE ";Y$;" DAY" 

: PAUSE "OF CHRISTMAS, MY TRUE" 
: PAUSE "LOVE GAVE TO ME" 

16 IF Z>11 PAUSE "TWELVE LORDS A LEAPING" 

17 IF Z>10 PAUSE "ELEVEN LADIES DANCING" 

18 IF Z>9 PAUSE "TEN PIPERS PIPING" 

19 IF Z>8 PAUSE "NINE DRUMMERS DRUMMING" 

20 IF Z>7 PAUSE "EIGHT MAIDS A MILKING" 

SEVEN SWANS A SWIMMING" 

SIX GEESE A LAYING" 

FIVE GOLDEN RINGS" 

FOUR CALLING BIRDS" 

THREE FRENCH HENS" 

26 IF Z>1 PAUSE "TWO TURTLEDOVES AND" 

27 PAUSE "A PARTRIDGE IN A" 
: PAUSE "PEAR TREE" 
:NEXT Z 

28 PAUSE "MERRY CHRISTMAS TO YOU!" 
:END JE) 



Availability of 16K RAM 
Modules for the Pocket 
Computer II 

There have been many inquiries regarding availability 
dates for the 16K RAM module for the Pocket Computer II. 
There simply is not an availability date in existence at this 
time. Presently it is not possible to manufacture CMOS mem- 
ory chips in the density necessary to produce a 1 6K module. 

Radio Shack will have 16K modules as soon as it is 
feasible to produce them, but, for the present, a 16K RAM 
module looks to be a minimum of one to two years away. 



21 IF Z>6 PAUSE 

22 IF Z>5 PAUSE 

23 IF Z>4 PAUSE 

24 IF Z>3 PAUSE 

25 IF Z>2 PAUSE 
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Concentric Circles 
on the CoCo 






Donald E. Whitelock 
402 Ganttown Road 
Turnersville. NJ 08012 



n your June 1 982 issue I was particularly interested in a 
program by Stephen Havens entitled "Concentric Circles," 
I was disappointed when it would not run on my Color 
Computer so I updated the program to run on the Color 
Computer and discovered the best I could come up with was 
concentric ellipses. 

Also, in your June issue I found an article by R.A, 
Esquivel concerning a height correction factor for Color 
Computer graphics. I fo,und his .9 correction factor to be valid 
when operating within the guidelines of PMODE, If you were 
using the SET command for graphic operation, as Mr. 
Havens and I did in the above mentioned "Concentric 
Circles" program, the .9 corrections factor no longer re- 
mained valid. Under this set of circumstances the correction 
factor for height is .6. I believe that .6 does not deliver an 
exact one to one ratio, but even if it is not mathematically 
close, it is certainly visually close. 




10 REM CONCENTRIC CIRCLES II 

20 REM DONALD E. WHITELOCK 1932 

30 F = 

40 CLSC0) 

50 PRINT "ENTER THE RADIUS OF THE CIRCLE." 

60 INPUT "—-(2 TO 25)---" ;A 
70 IF A < 2 OR A > 25 THEN 50 
80 CLS(0) 

90 PRINT "ENTER ANY NUMBER GREATER THAN " 
00 INPUT "20 FOR THE RESOLUTION" ;B 
10 IF B < 20 THEN 90 
2 CLS(0) 

30 PRINT "ENTER THE NUMBER OF SPACES" 
40 PRINT "BETWEEN EACH CIRCLE" ;C 
50 CLS(0) 

60 FOR D = 1 TO B STEP .5 
F = F + 1 

IF F = 8 THEN LET F * 1 
I = 30 + (A * SIN(D))) 
J = 16 + (.60 * (A * COS(D))) 
SET (I.J,F) 
220 NEXT D 
230 A = A - 1 - C 



70 
30 

90 
200 
210 



240 IF A < 2 THEN 250 ELSE 160 
250 PRINT @ 475, "END" 
260 GOTO 260 



JZ* 



Christmas Card 



G. Pigounias 
2226 Texas Avenue 
Savannah, GA 31404 



This program can be used with the Line Printer VII to 
make a nice Christmas letter to send to friends. After saving 
the BASIC program on tape, CLOADM the Screen Print 
Routine (26-3012) using normal procedures, and type POKE 
16303,255. Run the BASIC program and break execution 
when the screen is completed. Then press the (SHIFT) <t> 
to begin the screen dump to the printer. 




10 T * ************************** 

20 '******* XMAS CARD ********* 
30 **************************** 

40 PMODE 4,1 

: PCLS 

: SCREEN 1,1 
50 FOR X = TO 256 STEP 8 
60 FOR Y = TO 192 STEP 8 

70 LINE (0,0) - (£,*), PSET 

80 tfEXT Y 

90 NEXT X 

100 DRAW "M16,12; C0; X; V10; N; R10; N; D15; N; 

L10; N; E5; N; G5; N; H5 ; S; F5; M 
IJtf GOTO 110 



J3 
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Radio Shack Computer Center 
Addresses and Telephone Numbers 




ALABAMA 
BIRMINGHAM 2428 Green Springs Hwy., (205* 94^0792 
HUNTSVILIE 1400 N. Memorial Pkwy, {205] 536-1581 
MOBILE 405 Bel Air Blvd , (205) 471-1617 
MONTGOMERY *24 Unkin Square S/C. (SB) 27M5O0 

ARIZONA 
PHOENIX 10233 Meero Pkwy E . (602) 861-1124. 4301 H 7th 

Ave 1602)277-3031 
SCOnSDALE 2525 H Seott&daie W.. (602) 99&2241 
TEHPE S3 E Broadway. (602) 894 2065 
TUCSON 5622 F Broadway, J602) 746-0101, Campbell Pla#« 

2830 N Campbell Ave |602f 881 8003 

ARKANSAS 
UTTLE ROCK Town & Country S/C u UrirversiLy & Asher, 
{501 > 568-5694 

CALIFORNIA 
ANAHEIM 509 Katella. (714) J76-954Q 
BAKERSFIELO 2018 Chester Ave , (805) 323 8074 
BERKELEY 1922 Grove St.. [415; 848-9170 
BEVERLY HILLS 8500 Wilshire Blvd , (213) 659-8870 
BREA Imperial Shopping Center. 391 South State College, 

(714)671 1681 
CANOGA PARK 8371 Topanga Canyon, [213) 347-9800 
CARMICHAEL 6305 Fanoaks Blvd.. (916) 484 5815 
CHIGO 1834 Mangrove Ave . (916) B94-Q101 
CHULA VISTA t201 3rd Ave . (714) 42Q481G 
CITRUS HEIGHTS 7405 Green Back Lrt. al San Juan. 

(916! 723-5183, 969 8752 
DOWNEY 803T Florence Ave . (213) 927-7882 
ESCONDIOO 347 W. Mission Ave, 1714) 741-6032 
FREMONT Fremont Hub. 39114 Fremont, (408 j 790-1112 
FHESKO Prmcelon S/C, 2721 N Blackslone Ave.. 

J 2 09) 225 5S51 
GARDEN GROVE 12821 Knott St.. (714) 891 1160 
CLENPALE 236 N Brand Blvd.. (213) 246-9310 
HAYWARO 24784 Hesperian Blvd.. (4151 887-B420 
HOLLYWOOD 6922 Hoflyviood Blvd . (213} 466-8681 
LAKEWODQ 5830 Lflke*ood Blvd (213) 920^3671 
LA MESA 5346 Jackson Dr., (714) 460 3610 
LONG BEACH 2119 BellftowEr Bfvd . (213) 697-3377 
LOS ANGELES 740 5 Olive St (213) 629-2455 
MONTCLAIR 5237 Ar?ow H*y.. (71 4 1 625-1541 
MONTEREY Vastongicm St , f40B) 375^8430 

MOUNTAIN VIEW 1933 Fl Carnirio ReaJ W... (415) 961-0542 
OAK UNO 1733 Broad way (415) 763-3183 
PASADENA 575 S Lake Ave (213) 449-5424 
PLEASANT HILL SOS G tantiz Costa Blvd (415) E76-98GG 
RIVERSFDE 3844 La Sierra Ave . (714) 6B9-Q340 
SACftAWtNTO 4749 J St (91 6) 454-3287 
SAN BERNARDINO 754 inlaid Cwtff Or . f7t4) B8d-687i 
SAN DIEGO 3062 Dai re mom D* (714) 27&G05D. 3902 El 

Caion B!;-.l (714) 280 0227 
SAN FRANCISCO One Maifcet Place (415) 777 9810. 2920 

Geary Blvd.. (41 5| 221-8716 
SAN JOSE 1228 S Bascom Ave |40Bf 297 2602 
SAN MATEO 3T80 Campus Dr . (415) 573^07 
SANTA ANA 2320 S. Fairview St \al Warner), (714) 966-2787 
SANTA BARBARA 1141 Slate St A-1. (805) 967-4538 
SANTA FE SPRINGS 14138 East Firestone Blvd . 

[21 3) 921 0702 
SANTA MOWCA 511 Witshire Blvd . (213) 458-1802 
SHERMAN OAKS 14936 Veniura Blvd (213) 788 2639 
STOCKTON College Sq S/C, 963 West March Lane. 

1 209) 957-3676 
TAftZANA 1354S Ventura Btvd (213) 343-1696 
TORRANCE 3840 Sepulveda at Hawlhomc, (213) 373-0306 
VENTURA 4005 E Main Si , (805) 654-01 9E 
WEST COVIN A 2516 E. Workman St (2131 915-5791 

COLORADO 
BOULDER A;aoahoe Baza, 3550 Arapahoe, (303) 443-7142 
COLORADO SPRINGS ^34 1 N Atrterny. (3031 593-7500 
DENVEfl 8000 E Oumcv. (303) 770-1362, Green Briar PHa; 

7075 Pecos. (303) 428*6787 
LAKEWOOD 2099 Wa&swarth Blvd.. (303) 232-6277 

CONNECTICUT 
EAST HAVEN 51 Frontage fid. (203) 4674864 
FAIRFIELD 1196 Kings Hwy 4 Rt T, (203) 256-6099 
HARTFOHD The flicnardson Blrjg . 942 Ma 

(2103)849-5717 
MANCHESTER 228 Spencer St. t 203» 649-8210 
NOR WALK Rt 7-345 Main Aw 1203) 846 3418 
ORANGE WooICO 5 ! C 539 Boston Post Rd.. (203) 79S-12B1 
WATERBURY 105 Bank Si . {203) 573B800 
WATEHFDRD 122 Boston Part Rd.. (203] 443-0716 
WIST HARTFORD 35 5 Mam St.. 1203) 523^4283 

DELAWARE 
DOVER EdoefiiU Stop Ctr Rt #13, (302) 734-5223 
WILMINGTON 3847 Kirkwood Hwy (302) 993 0193 

DISTRICT OF COLUMBIA 
WASHINGTON 1800 M St HW . (202) 822-3333 

FLORIDA 
ALT A MONTE SPRINGS 766 B East Altamonie D 

(305) 339-1313 
BOCA RATON t662 N Federal Hwy [305) 381-330B 
CLEARWATER 2460-D US 19 North (813) 797-3223 
DAVTONA BEACH Volusia PteSL (904 1 255-5909 
FT. LAUDERDALE 4368 N Federal Hwy.. (305! 772-6797 
FORT MYERS EtfSW Malt, (813J 939 3454 
FORT PIERCE Center West Shooping Center, U S Hwy 1. 

{3051 466-2200 
GAINESVILLE 3315 Archer Rd.. (904) 375-7063 
HOLLYWOOD 429 S State Rd #7, (305) 966-4382 
JACKSONVILLE 8252 Arlington Exprwy . (904) 725-2594. 

RdBseveEi MaU, RotiS&yeiL Blvd., (904) 36S 6611 
LAUDERDALE LAKES 4317-25 H State Rd 7. (305| 486 2240 
MUM 9459 S. Dixie Hwy . (305) 6S7-Z316, 1601 flrscayne 

Blvd mhi 374 6433: t5 SE 2nd Ave . (305) 374-7310. 

20761 s Dixie Hwy . (305) 238-2518 
N. MIAMI BEACH The Promenade, 1777 N.E 163rd St . 

(305) 940-6887 
ORLANDO 1238 E Caloniar Dr , (305) 8B4-Q570 
ST. PETERSBURG 3451 ©5th St N 1813) 381 2366 
SARASOTA 5251 S. Tamani Tr (Hwy 41) |813) 923-47?T 
TALLAHASSEE ?5Z9 S Adams. (904) 222 4440 
TAMPA 4555 Yv Kennedy. (813) 879-7470, 1825 E Fowler 

Ave . (813)971-1130 
W. PALM BEACH 2271 -A Palm Beach Lakes Blvd.. 

(305) 683 3100 

GEORGIA 
AUGUSTA 3435 Wnghts&OfD Rd.. (404) 73& 5998 
ATLANTA 2108 Henderson MUL (404) 939-9888 49 W. Paces 
Ferry, |404) 231-9604, Akers Mill S/C. 2937 Cobb Parkway 
NW ^&il 955 5236, 1 13 PeachUee St . {404) 223 5904 
COLLEGE PARK 5309 OU National Hwy . (404) 7fi1 -3055 
COLUM8US CoPumbus Square Mali. 3050 Macon Rd., 

4) 568-7200 
DORAVILLE 5697 Biitofd Hwy (404) 458 2691 
SAVANNAH Chatham Plaza. 7805 Abercorn Si (912) 355^6074 

IDAHO 
BOISE 691 S Capital Bfvd {2m 3445450 



ILLINOIS 
AURORA 890 North Lake 51 [312) B44-2224 
CHICAGO 4355 S. Archer Ave . (3121 376-7617; CNA PJaia, 

309 S. Wabash (312) 922-0536, 72 Weal Adams, 

(3121236-7262 
ELM WOOD PARK 7212 W Grand Ave . (312) 45? 7500 
FAIRV'EW HEIGHTS *4 Market Place, (618| 398-6410 
HOMEWOOD/GLENWODO 329 Kenwood Lansing 

(312) 758^0440 
LaGRANGE One S LaGrange Rd.. (3121 432-3464 
LIBERTYVILLE - -.50 S M.Fwaukee Ave , (312) 367-8230 
LOMBARD 4 Yorktown Center. (312) 629-5350 
NILES 8349 Sort Rd (3121 470-067D 
OAK UWN 4815 W 95ih St.. (3121 425-9130 
PEORIA 4125 H Sriendan Rd , (309) 685*7056 
R0CKF0RO Nanh Town S/C. 3600 H Mam St . (8t5) 282-1001 
SCHAUMBURG 651 Mall Dr . (312) 884-8600 
SPRINGFIELD Sherwood Plra. 2478 Wabash. (217) 7873066 

INDIANA 
EVANSVJLLE 431 Diamond Ave . (812) 426-1715 
FT. WAYNE 747 Nortbcresl SC. (219) 482-9547 
GRIFFITH 208 W Rsdge Rd (219) 838 3000 
INOiANAPOLIS 6242 f B2na St., Castleton Plz , 

(3i7j 849-6896 Speedway Plaza. 6129 B Crawlordsvillc 
(317) 244-222 V 10013 E Washington St.. (317) 898-4887 
TERRE HAUTf 3460 US Hwy 41 S.. (612) 234-3212 

JOWA 
CEDAR RAPIDS 1T1 First Ave SE (Downtown), 

(319) 362-7399 
tJAVENPtJRT 616 E Kirnb^rly Rd .. (3191 386 3457 
DES MOINES *66ti Hickman Rd . Sherwood Forest S/M. 

(515)270-0193 

KANSAS 
OVERLAND PARK 8619 W 95lh (9131 642-1301 
TOPEKA White Lafces Plaza West Tower 3715 Plaza Dr . 

(913) 267-6420 
WICHITA 2732 Blvd Plata SC. (316) 681-1212 

KENTUCKY 
FLORENCE 7727 Mall Rd 1606) 371 281! 
LEXINGTON 2909 Richmond Rd , (5061 259-7321 
LOUISVILLE 2900 Tavl'orsvilie Rd , (502) 459-9901; LoyisvilJe 
Gallena, (502) 589-1013 

LOUISIANA 
BATON ROUGE 7007 Florida Blvd . (6UI) 928 5260 
HOUMA 2348 W Pafk Ave (Hwy 24) f5M) 873-7713 
LAFAYETTE UniversiEy Square at Congr .> i'vd 

(318)2358177 
HETAfRtE 3750 Veterans Hwy (504) 4S4*3L>31 
NEW ORLEANS 327 St Charles Ave . (504) 52:3-6408 
SHREVEPORT 1545 bne Awe , [318) 22V5125 

MAINE 
BANGOR Maine Square. 1207) 945-6491 

MARYLAND 
BALTIMORE 7942 Belair R(L Putty Hill Ptaa. (301) 882-9583, 

115 N. Charles St at Lexinflton. I30U 539-7251 
BETHESDA ?900 Wi^onsii^ Ave.. (301) 656-0892 
CATONSVILLE One Mile Wesl S/C, 6600 B Bait Nai I Pike, 

130 U 788-3277 
FREDERICK Shoppy World. Rt 40W. (30 1j 695-8440 
J*EW CARR0LLTDN4ANHAM 7&49 Annapolis Rd., 

1301) 45^8030 
PASADENA 8120 Ritchie Hwy (301) 544-2352 
ROCKVILLE Congressional Plaza. 1673 ftockviHe Pike. 

(301) 964-0424 
SALISBURY Shoppors Won'd S/C Rt 50. i301j 546-9223 
TEMPLE HILLS ^520 St Barnabas Rd (30t) 89WJ740 
TOW SON LUTHERVILLE Yorklown S/C York Rd at Radgfey Rd.. 

(301)561 2001 

MASSACHUSETTS 
BOSTON 730 Commonwealth Ave , (61 71 739-1704, ill 

Summer St . (617) 542-0361 
BRAINTREE South Snore Plaza. 250 Granite St, 

1617)848-9290 
BROCKTON 675 Beirmini (617) 563-2270 
BURLINGTON Crossroads Plaza. Rt 3 S .. (6T?i 229 2850 
CAMBRIDGE Harvard Square 28 Boylslon St . (617) 3547694 
CHESTNUT HILL 200 Boston St (617) 969 2031 
NATfCK 1400 Worcester Rd.. (617) B75-B721 
SAUGUS 343 Broadway (617) 233-4985 
SPRINGFIELD 1985 Mam SI . Northpate Plz. (4131 73M745 
WORCESTER Lincoln Plaza. i'6i7i 852-8844 

MICHIGAN 
ANN ARBOR 2515 Jackson Rd . (313) 761-6266 
BIRMINGHAM 3620 W Maple Rd.. (313) 647-2151 
riFTHOiT OWNTN 1559 Woodward Ave.. (313) 961-6855 
FLINT G3298 Muter Rd . Yorkshire Plaza, (313) 732-2530 
CRANO RAPIDS 3142 28th Si SE . (616) 957 2040 
KALAMAZOO 25 Kalamazoo Cmw, {616! 343-078-0 
LANSING 2519 S Cedar St . |517) 372 1120 
PLAINFIELD North Kent MaJJ. (616) 364 7558 
LIVONIA 33470 W 7 Mile Rd , (313) 476-6800 
ROSE VILLI 31873 Graticl Ave . 1 31 3) 296-6210 
SOUTHFIILO 17651 Wcsl 12 MiJe Rd (313) 5B9-10Z7 
TROY Oanland Plaza. 322 John R. Rd . (313) 585-3900 

MINNESOTA 
BLOOMINGTON 10566 France Ave. S.. (6121 884-1641 
GOLDEN VALLEY Gotten Valley S/C, 8016 Olson Memorial 

H^t 1612)542-8471 
ST. PAUL Btti 4 Wabasha. (612) 291-7230 



JACKSON 979 Ellas Ave 



MISSISSIPPI 
(601)352-5001 



MISSOURI 

D£S-PFRES ' f960 Manchester Rd r (314) 966-591 
FLOFUS5AN1 4 7 FlofissSrTl Qa&s S/C, (314) 921 7722 
(NDEPfNOENCE :325 S NOand Rd , (816) 254-3701 
KANSAS CITY 4025 N Oak Tratticway. 1816) 455 3381 
ST. ANN 10472 $\ Charles Rock Rd . (314) 428-1400 
SPRINGFIELD 2664 S Glenstone (417) 883 4320 

NEBRASKA 
OMAHA 3006 Dodfle St . (402) 34M0O3 

NEVADA 
LAS VEGAS Cummcrcr- Cenler. K3 £ Sahaca *3 -B 

[702] 731-39SS 
RENO 3328 Kietz^e Lane, (702) ^26-6' 

NEW HAMPSHIRE 
MANCHESTER Hampshire Ran, 1O0O Elm Si (603) 6254040 
NASHUA 429 Amherst St . Rt IOTA, (603) B81-B58B 
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D Remove from list 
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NEW JERSEY 
flRIDGEWATEH 1472 US Highway 22 East, (201) 469 3232 
E. BRUNSWICK 595 A ft 18. (201) 238-7142 
E. HANOVER Rt 10. Hanover Plaza. (201) 884-1200 
mWRENCEVULE Rl 1 & Texas Ave . (609) 771 0113 
NEWARK 595 Bread fHft] 622-1339 
NO RT H F I E LO 32 2 -24 Ti I ton Rd (609 ) 645- 7676 
PAHAMUS 175 Rt 17 S . (201] 262-1920 
SPRtNGFlElD Rt *22 Center Isle. (2011 467 9827 
VOORHEES 35 Eagle fto, (609) 346 0600 



ALBUQUERQUE 21 



NEW MEXICO 
San Mateo NE I505 r 265-95S7 



NEW YORK 
ALBANY Shoppers Pfc.. Wort Rd (516) 459-5527 
8AYSHORE 1751 Sunrise Hwy . j5l6) 666 1800 
flETHPAGE 422 N Wartagh Ave.. (516) 822-6403 
BROOKLYN 516 SBtfi Si |2?2) 238-3576 
BUFFALO 839 Niagara Fails Blvd., (716) S37-2590 
FRESH MEADOWS '87 12 HOTCt Harding Exp 

(212) 454-1075 
JOHNSON CITY Giani Shopping Cenler, Harry L Drrve, 

(6071 729-6312 
KINGSTON Kings Mall, Rt 9W (9141 336-6262 
MELVILLE TSS Mall, Rt 110. (516) 673-^ 
NEWBURGH Zayre Plaza Rl f17K. \9U) 561-2960 
NEW RDCHELUE 242 North Ave . (914) 636-0700 
NEW YORK 385 Fitlh Ave, (212) M9-1345. 139 E 42nd St 

(212) 953-6053. 19 W. 23rd Si . (212] 691-1861: 347 

Madison Ave.. (21 2) S6 7-8650. 270 Park A*e South, 

(21 n ) 533-0470 
NIAGARA FALLS Pine Plaza, 635 1 Niagara Falls Blvd . 

(716) 283-2041 
REGO PARK 97-77 Quarts Blvd , (212) 897-5200 
ROCHESTER 3000 Winton Rd.. (716) 244-&400 
SCARSDALE 365 Central ?arh Avfi.. (914) 472-2520 
SPHING VALLEY White House Center. 88 W Rt 59. 

(914| 425-2828 
STATEN ISUNO 2409 Richmond Ave . (212) 69^3100 
SYRACUSE 2544 Erie Blvd.. (315) 446-3017, Hotel Syracuse, 

510 S. Warren St, (315} 47T-6663 
UTICA Riverside Mall (3i5| 735^1933 



NORTH CAROLINA 
CHARLOHE 3732 inrjeptindenc* Blvd . (704} 535 &320. TyvQla 

Mali. 5401 South Blvd . (704) 527-3373 
FAYETTE VILLE Eutaw Shopping Center. 815 Elm St, 

(919) 4A3-241B 
GREENSBORO 3718 High Point Rd., (91 9| 294^5529 
RALEIGH Town ridge Sq.. Hwy 70 W.. (919) 781-9380 
WINSTON SALEM 629 Peiers Creek Pkwy.. (919) 722-O03Q 



OHIO 
AKRON Fairtawtl Plus. 2727 W Market Sr, (2161 836-9303 
BEDFORD HEIGHTS 521? Northfield Rd (218) B62-2477 
CANTON 5248 Dressier Rd NW . i"216> 494-7230. MeJIet Pfaza. 

3826 W Tuscarawas. (216)478-^878 
CENTERVILLE 2026 Miamisburg-CGntenrille Rd {513) 435-5167 
CINCINNATI 9725 Montgomery. (513) 793-8688/16-18 

Convention Way (on Sky^alk). {5 13) 381-4664 
CLEVELAND 419 Euclid lOwntwriL (2l6'i 575-0800; 27561 

Euchd Ave. (216)289-6823 
COLUMBUS 862 S Hampton. Great Eastern S/C, 

(614) 864-2806. The Patio Shop. Ctr.. 4661 Karl Rd.. 

(614) 436 4666; 400 N Higti Sr |614) 464-2781 
DAYTON Nonhwesl Plwa. 3279 West Stebenlhaler. 

(513)277-6500 
FAIRFIELD 7255 Dixie Hwy. (V* Mi. ftorth of I-275I. 

(513) 874-5994 
NORTH OLMSTED Great Northern 5/C. (216) 734-2255 
PA AM A 7551 W Ridg^DOd Dr ., (216) 842-4030 
TOLEDO 5844 W Central Ave.. (419) 531-5797 
YOUNGSTOWN Union Square Pla/a. 2543 Belfnonr Ave , 

(216) 744-4541 



OKLAHOMA 
OKLAHOMA CITY 4732 SE 29th Si.. 14051 670-4561. Springdal* 

S/C 4469 NW 50th (405} 943-8712. 1 T01 SW 59th St.. 

(405) 634-2406 
TULSA 7216 & 7220 £ 41 si St.. (918) 663*2190 



OREGON 

EUGENE 390 Cciburg Rd 1503) 667-008? 

PORTLAND 7463 SW Gar&uf Blvti.. (503) 246-1157. 91 3T SE 

Powell. (503) 777-2223 
SALEM Salem Plaza. 403 Center, (503) 568-7095 



PENNSYLVANIA 
ALLINTOWN Crest Plaza 5C. Cedar Cresl BJvd US 22. 

(215) 395-7 1 55 
BAUh'bYNWYD 67 f Guy Une Ave.. (21 5 j 666-9950 

ERIE 5755 Peadi SI . (814) 668-5541 

HARRISBURG Union Deposit Mali. Union D&posir Rd #17, 

(717)564-6753 
LANCASTER Park City Plaza. US 30. (717) 393-5817 
MONftOEVILLE 3826 Wm Pewi Hwy .4121 323-3400 
MQNTGOfrtERYVlUJE Airport Sq . Rt, 309 (215} 362-1200 



PHILADELPHIA 7542 Castor Ave (215) 342-2217. 1002 

Chestnut St., (215) 323-3080 1801 MarkM St 10 Pw 

Center. .215) 568-0901 
PITTSBURGH 5775 Baptist Rd HiWs Plaia, (412) S3 1 9694 

303 SmitMield St. (412) 391-3150, 4643 Baum Blvd.. 

(412) &B1-4000: 4768 McKrwgM Rd . [4121 364-4342 
SCRANTON 206 «eadDW Ave . (717) 346-1801 
WYOMISSING Berkshire Mall West. 1101 Woodland Rd 

(215) 372-8810 

PUERTO RICO 
HATO HEY 243 Franklin D Ftoosevetl Ave . (809) 759 8248 

RHODE ISLAND 
E. PROVIDENCE 850 Waterman Ave.. (4<H) 438-2860 
PROVIDENCE 1/7 Union Si . (401) 831-0320 

SOUTH CAROLINA 
COLUMBIA Old Sears BJdg . 1001 Harden St.. (803) 799-2065 
GREENVILLE N Mil's S/C. 003)292-1835 
N, CHARLESTON 5900 Rivers Ave . (803) 747-5580 

TENNESSEE 
CHATTANOOGA 636 Narrate Mall. (615) 870-1366 
JOHNSON CITY Peerless Center. (615) 282-6829 
KNOXVILLE Ceoar Bluff 5/C 9123 Executive Park Dr., 

1615] 6900520 
Memphis 4665 A neriean Wty 901] m 4963 i907 union 

Ave |90l'|278-7935 
NASHVILLE 21 T5 Franklin Pike. (615) 298-5434, Rivergate 
PJa/a, (615) 859-3414 

TEXAS 
AMARILLQ Wellington Sq. S.-'G. 1619 S. Kentucky. 

(806) 358-4567 
ARLINGTON 7500 E Randoi MiH. Suite 113. (81 7) 274-3127 
AUSTIN 8764 E Research Blvd.. (512) 459*4238, Souttiwood 

Mall. 1501 Ren WWle B^d , (512} 447-0371 
BROWNSVILLE 639 Price Rd. |Nwy. 77). (512) 544-6800 
BEAUMONT 5330 Eastex Frwv ,(713) 898-7000 
CORPUS CHRISTI 1711 S Siapte St.. (512) 887 8901 
DALLAS 15340 Dallas Rwy . Suite 1100, (214) 934-0275: 2930 

W Uoffliwest Hwy.. (214) 350-4144: 1517 Mam Si , 

(214) 7608601. 2588 Royal Lfl . g14) 484^9947 
EL PASO 9515 Gale way West. (915) 594-3211 
FT. WORTH 15 One Tandy Center (817) 335-7198 2601 AtU 

Mere. (817) 738-0251 
HARLINGEN 1514 S. Kwy 77, Sunshine Strip (512) 425-8890 
HOUSTON 211C-FM 1960. (713) 444-7006 iG543Gijlt Fwy , 

(713) 943-9310., 5900 North Fwy.. (71 3i 699-1932 6813 SW 

Fwy . (7131 777-7907. BOB Dallas St., (713} 651-3002: 

Holland Square Center, 10920 East Freeway, (713) 

453-0600 Champion Fares! Pla/a. Champion Forest Dr. and 

F.M 1960 West. (713) 580-1404 
HURST Nodheast MalL (817) 2B4-151& 
LAREDO 102 Easl Carton RrJ.. (5121 727-4768 
LUBBOCK 3625 34th St . fBOG) 793-1467 
ODESSA 1613 A Easl &lh StrceL 1915) 334 8355 
RICHARDSON Fleetwood Sq S/C, 202 W Gantp&etl Rd 

(214) 669-1494 
SAN ArVTONiO 6018 West Ave . (512) 344-8792, 4249 

Centergate. (512) 657-3958, Rivertaeod Parting Garage 211 

E Market St. at Presa. (512) 225-0345 

' UTAH 

0GO£N K-Man Shopejng Center. 3672 Wafl Ave.. 

iBOll 3941666 
MURRAY 6051 S Stale Ave., (801) 266-8978 
SALT LAKE CITY 415 5th Ave . (80V) 322-4893 

VIRGINIA 
ALEXANDRIA 3425 Km$ St at Quaker Ln.. (703) 820-2600 
ARLINGTON Crystal City. 2301 So Jefferson Davis Hwy. r 

(703) 521-7479 
Fairfax Mfestfaii Center no, 3 ? .ee iiw> . i7C3) 27*6500 
LYNCHBURG HiH's Plaza Ward's Rd.. (804 1 237-1664 
NEWPORT NEWS Newmarket Soulti Shop. C|r.. (S04J 245-8203 
NORFOLK 5731 Poplar Hall Dr.. (804) 461-0798: Wards Corner. 

122 E little Creek Rd . (804) 588-7548 
RICHMOND Willow Lawn S/C, 1617 WrNw Lawn Or , 

{&04i 282-3453. 7728 Midlothian Turnpike. (8041 272-8803 
ROANOKE Franklin flldg.. 3561 FrankKo Rd S.W.. 

(703) 342 6335 
ROSSLYN 1911 N Ft. Myer Dr at Rt 29 (703) 243-5955 

WASHINGTON 
BELLEVUE C^cssroads Mall. Nartft Easl 8th & 156 St . 

(206)644-1804 
BELLINGHAM 1111 Cornwall Ave . Suite B & C. (206) 676-0811 
FEDERAL WAY 33505 Pacific Hwy Scuth. (206) 838-6830 
OLYMPIA 106 N. WHsan. (206) 754-6111 
SEAnLE 1B405 Aurora Ave ft, (206) 542-6184. 1521 3rd 

Ave i 206| 447-1 &59 5D30 Roosevelt Way NE. 

I206J 527-1019 
SPOKANE 770? N Division. (509) 484.7000. E 12412 Sprague. 

(509) 922-2800 
TACOMA 7030 5. Sprague. (206) 473-7333 
TbKWILA 15425 53rd Ave S (206) 246 3710 
YAKIMA 1111 N First Si , (509) 248-9667 

WEST VIRGINS A 
HUNTINGTON 2701V? 5th Ave . (3041 523^3527 

WISCONSIN 
MADISON 57 WfiM To^ne Mall i&08> 833-6130 
MILWAUKEE 6450 N 76th St (414 j 353-6790 
WEST ALUS 2717 South iQ8rh St 1414) 327 4240 



